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Kurs mil kompletteti Beispiel-Listings: 

Ejnstiegjn 
Muschinensproche 




IM.BfllH. 



Bgstejgnjeftyng 



rotor und Sthaltinterface 



■MSB*' 



mtBa vtn«m 



*Spiele*Afiwe 



Mehr als ein Disksystem fur den Spectrum 




Port 

- Joystick lnlf;rl;-)L.;e (Kernpston- 
kompatibell 

- monochromer Video-Monitor-AnscbluB 

- stabilisieries Netzteil (versorgt auch 
itrcn Spectrum) 

- Befehlssatz vol! Micro d rive- kompatib el 

- belegt keinen RAM im Spectrum 

- deutsclies Handbuch 

- G;-aii& Einfiihirungsdiskette mit 
Pro gram men 

- voile Herstellergarantie 




DISCOVERY 1 

DM 898.-* 

DISCOVERY 2 (rwei Laufwerke) DM 1398.-% Druckerkabel DM 59.-*, Disketten (10-Paok| DM 99.-* 



MHS Datenmanager Spectrum 

I ■ 'I . ■ . I I 



MHS Tasword II Erganzung 



Die Discovery-Systeme gibt's ganz in Jhrer Nahe: 



Handbuch fiir Hacker 

I. ■!■■■■ ..,!■■ ■ I ■':, 

Dst'M P-BTX-TAB,.. 
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In oder out? 

Alle Welt redet von 16 Bit, zahlt 
RAM 100-Kilobyte-weise. traumtvom 
MOPS [Millionen Operationen pro 
Sekunde): Da ist der Spectrum »out«? 
Ich glaube merit. Es gibt Faclileute, 
die behaupten, zwei Drittel bis drei 
Viertel ailer Mikrocomputer-An- 
wender brauchten olmehin nicht 
mehr als die Leistung eines 8-Bil- 
Prozessors. Fur den Spectrum 
spricht iemer, da6 er preisgtinstig 
und ausgereift ist, dafl es sehr viel 
Hard- und Software gibt — und sine 
Menge Literatur und Erfahiungen. 
Seitdem die Plus-Version geliefevt 
wird, kann man nicht cinmal gegen 
das Tastaturformat etwas einwen- 
den, Selbst manche systembeding- 
ten Eeschrankungen sind bei nahe- 
reiBelrachtunggar nicht so wichtig: 
So reicht eine Bildschirmdarstel- 
lung von maximal 64 Zeichen/Zeile 
auch fur Textverarbeitung vollig aus 
(wer's nicht glaubt, sollte einmal die 
durchschnittlichen Anschlagzahlen 
in einem mit Schreibmaschine ge- 
f=t:[:riebonc:n Brier zahlen.). 

Naturlich ist ein Sechszylinder- 
Meraedn-j •--■— l:-""ri- j t lu-.i komforta- 
blerundschnelleralseinR4 Obdie 
Anschaff'j-. : :t ■ :■■■". ■:. Si-.n macht, 

chen Ihre Briefe zur Posi bringen 
und alltagliche Besorgungen erledi- 
gen wollen, ist eine ganz andere Fra- 
ge, Das gleiche gilt fur den 
Computer-Kauf: Es mufl ein vemfinf- 
tiges Kosten/Nutzenverhaltnis ge- 
geben sein. Und da sieht der Spec- 
trum wirklich nicht schlecht aus. 
Deswegen ist er immer noch »in« — 
selbst und gerade bei den vielen 
Benutzern, die inn gut kennen. 

(Michael Pauly, CheEredakleur] 



Sinclair 
forever 

Angespomt durcii viele nette Zu- 

schriften mii oben genanntem Aus- 
spruch habe ich mich an unser zwei- 
tes Sonderheft gewagt. Geplant war, 
in diesem auch als Aufsteiger-Alter- 
native fiber den QL in der deut- 
schen Version zu berichten. Da es zu 
diesem Computer aber bisher trotz 
vieler Versprechungen nur Ab- 
sichtserklarungen und allenfalls 
Geriichte gibt und die deutsche Nie- 
derlassung von Sinclair in Bad Ham- 
burg nicht gerade durch positive 
Aktivitaten von sich reden macht, 
haben wir auf den QL verzichten 
miissen. Rfistet man den Spectrum 
mit einem Diskettensystem aus, hat 
man auch wesentlich preis werter ei- 
ne »Profi-EDV-Anlage«. Hier ist zum 
Beispiel das Opus-Discovery-Sy- 
stem eine emsfhafte Betrachtung 
wert. Dafur gibt es inzwischen den 
Spectrum plus und fur Leute. die 
schon einen Spectrum haben, einer. 
Aufrustsatz fur knapp 100 Mark. Die- 
ser besteht aus der Plus-Tastatur, 
der Demo-Kassette und dem neuen 
Handbuch und macht unter Verwen- 
dung eines Schraubendrehers aus 
jedem Spectrum einen Spectrum 
plus. Ebenfalls erfreulich ist die Tat- 
sache, daB das Interface 1 mit Mi- 
crodrive zu einem giinstigen Preis 
offeriert wird und nun wonl endlich 
damit gerechnet werden darf, daB 
auch eine Vielzahl kommerzieller 
Programme auf Cartridge angebo- 
ten wird. Die extrem stark gesunke- 
nen Preise des Microdrive-Cartrid- 
ge (das Viereipack schon fur 32 
Mark) trosten zusatzlich fiber die. 
Anschaffungskosten fiir das Interfa- 
ce mit Laufwerk hinweg. Ein Disket- 
tenlaufwerk kostet immer noch rund 
das Doppelte, 




Was geboten wird 

Die Themenauswahl zu diesem 
Sonderheft haben Sie vorgenom- 
men, mit Ihren Leserkanen, Briefen, 
Anrufen, Programm- und Artikeian- 
geboten, Wir gehen davon aus, daB 
nicht jeder Spectrum-Besitzer ein al- 
ter Hase ist. Darum stnd einige Tips 
undTricksund Spiel elistings fiir Ein- 



steiger gedacht, Aber auch schlaue 
Fiichse sollen zu ihrem Reeht kom- 
men. Diesen sei der Maschinenco- 
de-Kurs ebenso wie der Artikel 
fiber die Spectrum-Schnittstellen 
ans Herz gelegt. Mit Testbenchten 
haben wir una zuriickgeh alien, sie 
sind Bestandteil der aktuellen mo- 
nallichen Ausgabe der Happy-Com- 
puter. Damit die Lcfkolben-Bandi- 
ger was zum uVerbratens Finden, ha- 
ben wir einen alten Bekannten, un- 
seren Soundgenerator, nocnmal 
hervorgeholt und dafiir auch gleich 
und exclusiv eine 8-Bit-Ausgabeein- 
heit zum Selberstncken im Angebot. 
Fur Musestunden oder als Entspan- 
nung zwischen der Abtipperei bie- 
ten sich der Adventure-Artikel und 
die Psion-Story an. Zum Nacheifern 
sei die »goldene Diskette" empfoh- 
len, nicht zum Nachmachen (oder 
doch?) soil die nSpectrum-Repara- 
tur« anleiten, 

Eine Menge Listings 

Die anwendungsbezogenen Li- 
stings sollen dem Gebrauch als 
auch, wie natfirlich speziell die Tips- 
und Tricks-Listings, dem Denkan- 
stoB fur eigene Programmentwick- 
lungen dienen. Viele Programme 
aus dem Lisung-Teil bieten wir, um 
Dinen das lastige zeitraubende und 
nervenzehrende Eintippen zu er- 
sparen, auf einer Sammelkassette 
(Bestellnummer LH8SS1D, 19,90 
Mark) an, Der Preis daffir ist nur 
noch durcii Raubkopieren zu unter- 
bieten. 

In der Hoffnung, alien Spectrum- 
Fans einen Gefallen getan zu haben, 
Ihr Happy Computer-Redakteur 
und uberzeugter Spectrum-Benut- 
zer (Manfred-D Bating) 





Ein Maschinencode-Kurs fur Fortgeschrlttene mit ei 
kompletten Unterprogramm-Sammlung und leicht 
verdaulicher Anleitung hilfl auch Ihnen beim 
Prograi 




DaB Psion mehr kann, t 
Spectrum zu produzieri 
England. 



Abenteuer Spectrum 

Grundlagen, Tests umd Tips 
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Klavterstunden fur 27 Mark 

Musiksoflware irr. Tent 


9 


BrifTscher Humor 

Eine kriiischc rir-HmchLurii'j 


10 


Psion, eine Firmo mit Charme 

Eine Unternehmeiisbetrachtung 
mit Interview 


12 


Die Multis kommen 

Software — Vbrstellung 


15 


Routinen fur die Praxis 

Maschinencade fur Forlgeschrittene 


17 


Kossetten interface 

Eine ROM-Betrachtung 


87 


Variablendump 

Ein praktisches Hilfsprogramrn 


95 


Private Finanien 

S oft W arete si 


96 


Diskettendoktor fur Beta-Disc 

Softwaretest 


97 


Goldene Diskette 

Die Geschichte eines Gewinners 


98 


Dote n-Verbtnd ungen 

Die Signale des Spectrum erkennen 


99 


Microdrivs-ExpreB 

C arrr idge-Sp eicherung 
schneller und sicherer 


102 


PEEKs und POKEs 

Eine Trick-Sammlung fiir alle Zwecke 


103 


I Print III 

Problemlosung fur Drucker interface 


104 


Mit dem Spectrum auf Du und Du 

Eine wenig emste Reparaturanleitung 


106 


Es hut gefunkt 

Test RTTY/SSTV-Hard- und -Software 


107 


Sound generator 

Bauvorschlaa 


108 


PIO zum So und generator 

Bauvorschlag 


111 


Autorenveraeichnis 

Impressum 


114 
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Spiele-Lislings 

Entweichen 

Grafik-Abenteuer 


35 


Defender 

Weltraurn-Jagd 


43 


Anaconda 

Ein tierisches Schlangenabenteuer 


« 


Geheim 

Text-Verschhisselung 


48 


Spme-Smily 

Spiel unter Beta Basic 


SO 


Tips STrkks- Listings 

Internas que dem Computer 

Tips zum Interrupt unci Speicherplatz 


75 


Border-Effekte 

Farbe per OUT-Befehl 


76 


Clear-List 

Saubere Listing-TabeHe 


78 


Bit-Kopierer 

Programmkopie per Programm 


82 


UDGs durch POKE- Befell le 

Grafikzeichen mal anders 


84 


Funktionstasteti 

Micro dri ve-Vers ion 


84 
87 


Hexerei 

Eine Eingabe-Hilfe fiir Hex-Code 


Anwendungs-Listings 

3D-Plotten 

Grundlagen der dritten Dimension 


52 


Disassembler 

Basic-Listing fiir Masc-hinencode 


57 


3D-Grotik 

Mini-Listing mit Maxi-Wirkung 


64 



Platinen-CAD 

Hilfe fiir El ektronik- Freaks 



Mat he-Trainer 

Ein geduldiger Spamngs-Partne] 





PI 






Den Signalen des Spectrum geht unser Artikel »Verbin- 
dungen« auf den Grund. Damit konnen Sie mehr aus 
Ihren Daten machen. 




Wenn Sie sich in ein Abenleuer mil dem Spectrum 
stiirzen wollen. finden Sie in u riser em Adventure- Artikel 
viele Tips und Anregungen. 
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Adventure 



Abenteuer Spectrum 

Die Schuhe geschniirt, den Ranzen gepackt unci auf 
geht's: Ihr Computer entftihrt Sie in verwunschene 
Schlbsser, unheimliche Hbhlenlabyrinthe und feme 
Welfen. Adventures machen es moglich, die an- 
spruchsvolle Spielart, bei der nicht Reaktionen und 
Schnelfigkeit, sondern Uberlegung und Gehirn- 
schmalz gefragt sind. In diesem Abenteuerspiel- 
Fiihrer stellen wir Ihnen die interessantesten 
Programme dieses Genres vor. 



Personen, Einfach wird die Sache 
dadurch nicht, aber ein Abenteuer- 
spiel, das schon nach kurzer Zeit ge- 
lost ware, ist auch nicht das Gelbe 
vom Ei. Einmal zu Ende gespielt, 
wird ein Adventure namlich reiztos, 
die Spielmotivation geht vollig flo- 



Die Welt im Computer 

Angenornmen, das Pragramm 
teilt Ihnen am Bildschirm nach dem 
Laden mit, daB Sie auf einer Wald- 
lichtung stehen. Mehr tut sich aber 
auch nicht, denn dei Spectrum war- 
tet nun darauf. daB Sie die Initiative 
ergreifen. Um nun beispielsweise 
nach Noiden zu gchen, tippt man im 
schbnsten Schuienglisch »Go North* 



Waren Computerspiele in der 
Regel Programme, bei de- 
nen man Punkte samn&lte 
und fiir die man sich ein Joystick- 
interface zulegte. eroberte ein neu- 
er Spieltyp klarnmheimlich eine slol- 
ze Fan-Gemeinde. Selbst abgeklar- 
te, sachliche Menschen, die mit 
Spieleieien sonst wenig im Sinne ha- 
ben, hocken bis tief in die Nacht vor 
der Glotze und grubeln im fahien 
Licht einer einsamen Schreibtisch- 
lampe vor sich hin. Verursacher die- 
ser harmlosen nachtlichen Leiden- 
schaft sind der gule alte Spectrum 
und ein entsprechendes Programme 
Abenteuerspie! oder neudeutsch 
Adventure genannt. 

Bei Adventures gilt es irnmer eine 
bestimmte Aufgabe zu losen, egal 
ob ein bcser Zauberer unschadlich 
gemachl, ein Schaiz gefunden oder 
ein Mordfall aufgedeckt werden 
muB. Um diese Aufgabe zu erfullen, 





RINGmSTEB Knob 

■ 




■' I'll ME 1JHRT TO DO ? ■ 





muB man sich in einer neuen Welt, 
die nun sozusagen im Spectrum 
steckt, zunachst orientieren. Gute 
Abenteuerspiele enthalien namlich 
eine Vielzah! von Schauplatzen, Ge- 
genstanden und auch mehr oder 
weniger freundlich gesonncnon 



Der nsfte Herr links 
stheint auf den er- 
sten Blick ein Verkau- 
fer in einem Compu- 
tershap m sein — 
doch well gofehlt: 
der nRingmaslem 
ist's, frisch aus dem 
Adventure »SpirJer- 



ein. Nun tut sich auf dem Bildschirm 
wieder etwas: Sie erreichen einen 
neuen Schauplatz, an dem Sie sich 
"wieder orientieren miissen. Nach 
diesem Schema lauft das ganze Ad- 
venture ab. Durch Eingeben Direr 
Eef(:hle Qber die Taslatur v 




Man pldtsthert sich durdi: »Forest at Worlds Endu 

6 j3$fe 



Salter, Grusel und Gefohren: »Vallia!(a« 



Adventure 




Frisih aus dem Dam 



Unterwelt mil Griinstreilen: nlnfemao 



Sie dem Programm, was Sie als 
nachstes in der Phantasiewelt tun 
wollsn. Da nahezu a!le Adventures 
aus England kommen, sollten Sie 
sich auf alte Falle ein Wdrteibuch 
zurecnt legen, denn deutsche Be- 
fehle versteht ein englisches Pro- 
giamm nicht. Es gifat zwar einige 
deutschsprachige Spectrum-Aben- 
teuer, die aber bei weitern nicht die 
Qualitat der besten englischen Pro- 
gramme erreichen. 

Grafik kontra Text 

Abenleuerspiele kann man im 
groSen und ganzen in zwei wesentli- 
che Kategorien einteilen: Zumeinen 
mit Grafik. zum anderen Text pur. 
Reine Textad ventures sind optisch 
naturlich recht unattraktiv, worunter 
der Spielwitz spurbar leidet, Doch 
bei vielen Programmen kredenzt 
der Spectrum mehr Oder weniger 



scheme Abenteuerbilder, wobei ei- 
nige Programmierer erstaunlich 
viel Text und erstklassige Grafik in 
den 48 KByie-Speicher packen. Vor 
allem dem Einsteig'er sind Grafikad- 
ventures zu empfehlen, da sie mehr 
SpaB nnachen und auch nicnt we- 
sentlich teurei sind als knochen- 
trockene Textorgien. 

Bei besonders anspruchsvollen 
Texten nimmt man auch geme mal 
eine relativ mickrige Grafik in Kauf, 
so zum Beispiel bei uSherlock Hol- 
mes". Das Programm- stent dem 
groBen literarischen Vorbild kaum 
nach, wenn es urn detaillierte Be- 
schreibungen und verzwickte 
Handlungsfaden gent. Sherlock 
Holmes und Dr. Watson mussen na- 
tilrlich einen Mordfall in London kla- 
ren; eine schwierige Aufgabe, vor 
der Anfanger gewamt seien. Krimi- 
fans und Freunde sprachlich an- 
spmchsvoller Abenteuerspiele 



werden bei »Sherlock Holmes* 
schier aus dem Hauschen sein, so 
viel Atmosphare kommt bei diesem 
C:;nipLiiei-Mordfall ruber. 

Comk-Strip als 
Adventure-Hit 

Eine Art sSherlock Holmes der 
Adventure-Programnrierer« ist der 
Englander Scott Adams, der so viele 
professionelle Abenteuerspiele ge- 
schrieben hat wie sonst niemand auf 
der Welt. Von ihm stammen die bei- 
den Comic-Titel JThe Hulk* und 
»Spider-Man«. Vor allem jugendli- 
che Fans werden an den fantasievol- 
len Programmen viel Spafl haben. 
Ein weiterer Scott Adanis-Titel dreht 
sich um den bosen Herrscher eines 
verwunschenen Schlosses: »The Sor- 
cerer of Claymorgue Castlea ist ein 
stimmungsvolles Abenteuer, bei 
dem viel Magie mit im Spiel ist. Alle 




Jede Menge komisthe Typen: nSpider-Wurw 



Ein schickes Srh liill then: aSorcerer of Claymorgue Costleu 



Adventure 



Titel Preis 
Adventure Quest 39,- 


Grafik 

Nein 


Level9 


Besonderhciton 

Eigenstandige Fortselaung iu 
-Colossal Adventure", Text pur 
mit 223 Schauplatzen. 


CityofEhdollah 39,— 


Main 


Goldstar 


Ruinengestober mit allerlei 
Monstem. Ein gEheimrsisvoller 
Rubin soil gsfundeit weiden 


Dungeon Adventure 39.— 


Nein 


Level9 


Eigenstandige FottEEtJiing zu 


Colossal Adventure 39,- 


Nein 


Levels 


Betagter Klassikei von 19B3- Ei- 
ne HdhlenerfoiEchung Rlr 
Nostalgie-Fans. 


Doomdark's Revenge SB- 


]a 


Beyond 


Eigenstandige Fonsetzung iu 
uLords of Midnight*. Noch mehr 
slrategische Elements. 


Emerald Isle 33.- 


la 


Levels 


Als Pilot machen Sie Bruchlan- 
dung aul einel Insel. fiber 200 
Schauplarze. 


Forest al Worlds End 29 — 


la 


Interceptor 


werden. Zur edlen Handlung 
nibl's einigo i^chone Grafiken 


Hampstead 39 — 


Nein 


S^T" 


Originelle Handlung: Ziel des 
Spiels ist der sozialo Aufsucg 


Inferno 33 — 


I* 


Shepherd 


Wicdges Unterwelt-Abenieuer 
mit Zerebus. Minos & Co 


Lords of Midnight 39— 


13 


Beyond 


Straiegische Elemente, Tastarur- 
schablcne mit den Befehlen 
hegt boi. sehr komplex 


Lords of Time 39 — 


Nein 


Levels 


Reise dutch diverse Zeitepc- 
chen. Kerne Grafik, aber fiber 
200 Schauplatze 


Return to Eden 39— 


I" 


Levels 


Science hction-Abenieuer im 
24. Jahrhundert mit fiber 200 Bil- 
dem. 


Sorcerer or Claymor- 39— 
gue Castle 


la 


Adventure 


Zaubersoriieho mtissen im rich- 
tigen Moment angewendet wer- 
den. SHhr achone Bflder. 


Sherlock Holmes 49 — 


* 


Honse 1 ™ 16 


Texten. Gute Englischkenntnis- 
se emplohlen. 


Spider-Man 39 — 


la 


Adventure 
lntematio- 


Fiii Comic-Fans: Der Abenteue- 
rer schliipft in die Rolle von 
Spider-Mann. Sch&ne Grafik. 


The Hobbit 59— 


Ia 


Melhoume 
House 


Klassiker in Anlehnung an Tol- 
klens i-Hcrr der Ringe*. Hand- 
lung und Grafik vom feinsten 


The Hulk 49 — 


*" 


nal 


Grafisch iiboneugendes Spiel 

urn die Comic-Figur »HulK 
Nicht gcrade einfach. 


■Valhalla 49- 


Ja Legend 


Die Figuren agieren auf d,em 
chentrickfilnt. SEhr reizvoll. 


Eine Auswuhl von Spectrum -Adventures 





dtei Titel haben eines gememsam: 
Die zahlreichen Grafiken gehoren 
mit zum Besien, was man in dieser 
Kategorie bisher auf dem Spectrum 
gesehen hat. Pradikat: sehr empfeh- 
lenswert. 

Ein Programm, das ziemlich aus 
dem sonst tibiichen Adventure- 
Ranmen fallt, ist das Gotteidrama 
»Valhallai. In diesem Spiel erschei- 
1'ieii keine starrcn Gilder, sondemes 
tut sich wie beirn einem Zeichen- 
trickfilm eine gauze Menge. Ver- ' 
schiedene Figuren tauchen auf, 
tauschen Gegenstande, bekampfen 
sich uric '■■■■-->< .-->-=■"- -r-i. "■■ ■■veder. Dei 



Figur vorhandei 




■■.*/[■--■ =Hi 
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die fs 




geben. Kreuzt beispielsw 


eise Odin 


,-iul and Linen is 




! scleine n 


Rauferei zumul 




S:e ..Kill 


Odin- ein. Naci 1 




~kui' !■■:■. =:i: 


"cmr'atr"'- - - . 




hie Spiel- 


Odm h i. . ■. 
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Adventure im h 






eher ein einfaL 




:'■ i;-!'!ilni 



abenteuoi \^.n '.Yun^i, daB das 
originelle Programm 1984 in Eng- 
land alle moglichen Preise gewann. 
Auch das Handbuch zu .Valhalla, 
bestatigt den sehr guten Eindruck. 
Vor allem die Zeichnungen der Sa- 
genfiguren sind ein Augenschmaus. 

Kino-Erfolge 
werden umgeseizl 

Kurz nach RedaktionsschluS und 
deshalb ohne Bildschirmfolo kam 
•Gremlins- auf unseren Schreib- 
tisch. Es ist das Adventure zum letzt- 
jahrigen Steven Spielberg-Film und 



rde x 



<::-: 



iRout 



(.The Hulk. 
:hr gut, doch 



Soweit einige Besonderheiten aus 
dem Angebot an Spectrum-Adven- 
tures. Eine ausfuhrliche (jbersicht, 
die keinen Anspruch auf Vollstan- 
digkeit erhebt, haben wir fur Sie in 
eiriem Kasten zusammengefaBt. 
Und falls Sie jetzt sd richtig auf den 
Geschmack gekommen sind, noch 
etwas indiskrete Eigenwerbung: 
Die Tests von alien guten Neuer- 
scheinungen finden Sie jeden Mo- 
nat in »Happy Computer-. Happy 
Adventureing.... 

(Heinrich Lenhardt) 



Musikprogramm 



Klavierstunden 
ftir 27 Marie 

Ein gutes Musik-Programm macht aus dem Spectrum 
einen geduldigen Musiklehrer. 

Mm 
7a 






: und mehr »Videosr.:io".- 
Irnude* entlocken in letzter 
__JlZeit ihren Heimcomputem 
teils abenteuerliche Klange und 
Tbnfolgen: Musik ist drin, Musicma- 
sler greift all den Spectrtrm-Besit- 
zem unter die Anne beziehungswei- 
se Finger, die sich mangels musika- 
lischer Vorbildung bisher nicht an 
diesen kreativen Zeitvertreib heran- 
wagten oder immer noch der Auf- 
fassung sind, man konne rait einem. 
Piepser keine Musik machen. Klar, 
such die beste Software wird de 



S:x:G:n;r- 



Doch 



nKor 



■.y.lfl'.iCir! 



: Ittftel 



master durchgearbeitet, weifi man 
etwas mehr als zuvor. Vom Musik- 
professor ist man jedoch noch sehr 
weit entfemt. Und leider, oder Gott 
sei Dank, der Computer erklart 
zwar, wie die Tone heiSen und klin- 
gen, aber nicht wie man sie aneinan- 
derreiht, damit das, was heraus- 
kommt. auch Musik ist, Hierzu ist 
letalich dochein gewisses Quantum 
Musikalitat notsg. Die wahren Musi- 
ker beweisen sich also erst in Teil 2 
der MusLciiiiisior Software. 

Im Stave- oder Keyboard-Mode 
funktiomen das Programm den 
Spectrum zum Miniklavier bezie- 
hutiqsweise zur Auiomalikspionihr 
urn. Hier werden Tone zu Melodien. 
Akkoide lassen sich jedoch nicht 
apie'it ;-r-!. sondem 



itelichen Iliifszei- 
chen fur erhohen, emiedrigen be- 
ziehungsweise normal ein. Oder 
man legt das mitgelieferte Overlay 
uber die alphanumerische Tastatur 
des Spectrum. Die beiden oberen 
Tastenreihon bildendanneineMini- 
klaviatur mit schwaizen und weiBen 
Tasten. Nun spielt man Ton fur Ton 
genau wie auf einem Klavier. In je- 
dem Fall erscheint der eingegebe- 
ne Ton sofort auf der richtigen No- 
tenlinie am Bildschrrm. Hat man in 
Lektion 1 der Software gut aufge- 
paBt, fallt es nun nicht schwer, den 
richhgen Tbn zu treffen und mit den 
speziellen Befehlen Taktart, Tempo, 
Tbnhohe, Tonlange, Vorzeichen und 
Pausenwerte den Vorstellungen ent- 
sprechend einzugeben. Natiirlich 
kann man falsche Eingaben spater 
koirigieren, ganze Abschnitte 16- 
schen oder kopieren. 

Wie sehr man sich selbst als 
Musik-Maestro bewahrt, hdrt man 
spatestens beim Abspielen der ein- 
gegebenen Melodie. Und braust 
Beifall auf, sollte man spatestens 
jetzt das gelungene Werk auf Kas- 
sette speichern. (Richard Aicher) 



in Bild und Tbn die Gehei 
Tonhohen, Zeitwerte, Pausen, Vor- 
zeichen und Taktarten. Die Voraus- 
setzung fur das erfolgreiche Beste- 
hen des Software-Mini-Musikkurs 
liegt in ganz anderem Bereich. 
Denn, nichis geht ohne Englisch- 
Kenntnisse. Alle Erklarungen im 
"Bildschirmtextfl sind in Englisch ab- 
gefaBt. Doch weicher wahre Com- 
puterireak ist dieser Sprache neben 
Basic und Assembler nicht fahig? 
Und wenn, dann ist es hochste Zeit, 
sich einen Software-Vokabeltrainer 
zuzulegen. 
Hat man die Lektionen des Music- 
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Mit Musianoster konnen Sie lernen . . . 




Sinclair 



Britischer Humor 

Sinclair hat es schwer, nicht nur mit seiner deut- 
schen Repriisentanz, sondem audi mit den Finanzen 
und der deutschen QL-Version. Aber es gibt auch 
einen Lkhtblidc: den Spectrum plus. 



lions Division haben beide je einen 
eigenen Managing Director. 

Die sicherlich richtige Entschei- 
dung, nun endlich einen verantwort- 
lichen und kaufmannisch erfahre- 
nen Mann in das Untemehmen zu 
holen, kommt hoffentlich nicht zu 
spat. Spitze ware, wenn dies auch fur 
die deutsche Dependence in Bad 
Hombuig gelingen wiirde. die noch 
immer steuerlos im Abwind driftet. 
(Manfred Kotting) 



Vor gut einem Jahr startete Sin- 
clr.ir cir.cn Wcrbofo!d~.:c fur 
den QL in deutscher Uberar- 
beitung. Gleichzeiiig iibernahm ei- 
ne neue Mannschaft die bisher vora 
Generalvertreter Schumpich gelei- 
stete Arbeit, es wurde e:ne N:eder- 
lassung in Bad Homburg etabliert. 
Im Herbst 1984 kam dann uberra- 
schend der Spectrum plus und 
ebenso iiberraschend ging das 
Homburgei Fuhrungstrio. Zum ein- 
gedeutschten QL gibt es bisher nur 
Absichtserklarungen, DaB zwi- 
schen der Presentation des CS (kein 
Computer, sondem ein Plastik- 
Elektro-Dreirad) und dem abge- 
brochenen Versuch der Einfiihrung 
einer Sinclair-Aktie an der briti- 
schen Bbrse ein Zusammenhang be- 
steht, ist nichi zu beweisen, 

Auch das Weihnachtsgeschaft lief 
fur Sinclair weder in England noch 
in Deutschland zufriedenstellend. 
Nur der Spectrum plus erfreute sich 
anfangs grofier Belie bthe it, die 
Nachfrage war groBer als das Ange- 
bot Der QL in der britischen 
Original-Version wird fiber mehr 
oder wemger offizielle Importwege 
nach Deutschland gebracht und seil 
einigen Wochen is! dieser Compu- 
ter nun auch offiziell bei Sinclair in 
Deutschland erhaltlich. Vondenbis- 
herigen Dgrauen* Importen unter- 
scheidet er sich nur in der mitgelie- 
ferten Psion-Software. Diese wird in 
der Version 2.00, einer wesentlich 
verbesserten Version, ausgeliefert. 

Was es neues gibt 

Der Spectrum ist offenbar auch 
aus der Sicht der Zubehor-lndustrie 
ausgereizt. Es gibt seit Monaten kei- 
ne Peripherie-Hits. Dafiir ist wenig- 

stens das Preisniveau auf eine ver- 
nunitige Ebene gesunken, und Sin- 
clair forciert endlich etwas mehr 
sein Microdrive. Das Set aus Interfa- 
ce 1 und Laufwerk mit vier Cartrid- 
ges und vier Prograrnmen ist preis- 
wert zu bekommen und wird hoffent- 
lich das Angebot an Software fur 



dieter, S^i-id.eir.^'Jium eibohen. 
Seitf-v. . .' '.-.-..-.unk^Jtrnnnir, 

bare Version mit integriertem Lauf- 
werk, LCD-Anzeige und Akku-Puf- 
fer. Wenn dies stirnmt und dieser 
Neue auch noch kompatibel zu sei- 
nen Briidem ist, konnte er eine 
Chance haben. Auf dem QL-Sektor 
ist es in bezug auf Ponphcr ;o bodnu- 
erlich ruhig und in bezug auf Softwa- 
re gefahrlich leise. Dies gilt einge- 
schrankt fur den britischen und un- 
eingeschrankt fiir den hiesigen 
Markt. Selbst auf der LET. Englands 
grofier Compute r-Zubehbr-Messe, 
war im Februar das Thema QL nicht 
sehr gefragt. 

Nur keine Pcsnik 

NachneiiestenMnldungorilhnlon 
Sir Clive nur IS Mfllionen britische 
Pfund an Liquidiiat, um seine Ver- 
bindlichkeiten und Neuentwicklun- 
gen zu finanzieren. Grand dieses Fi- 
nanzloches ist der erwartungsge- 
maB schleppende Absatz des Drei- 
rades (C5), des Taschenfernsehers 
(drei Jahre zu spat) und des QL 
(Pseudo-Person al-Computer). In der 
entsprechenden Presseverlaufba- 
iung lies: sich dies dann so: 

1. Das Untemehmen Sinclair Re- 
search Limited bestatigt, dafiesKa- 
pitalinHohe von Wbis l5MUIionen 
Pfund in der Industrie Oder ander- 
weitig aufnehmen will, um langfri- 
stiges Wachstum und Restrukturie- 
rungsplane zu finanzieren. 

2. Sir Clive Sinclair sucht seit eini- 
ger Zeit fiir das Untemehmen einen 
neuen Chief Executive Officer 
(CEO) fur eine Position, die er bis- 
her selber innehatte. Diese MaB- 
nahme ist leii einer Firmenrestruk- 
turierung, die mit der Schaffung 
von zwei Betriebsdivisionen von 
Sinclair Research im Maiz begon- 
nen worden ist. Die Computer Divi- 
sion sowie die TV & Communica- 



Wo bitte geht's 
zum Markt? 


Sowohl IBM 
Commodore 
Clive Sinclaii 


em 


pen der He 
Computer ent 




starten eine 
seinen CPCs 




fewender-Be 




16-Bitter in 


tseg- 


sor-Claubigkte 


6 Bit istinj.kei- 


warier Markt 


_ bit; ::■:. 1000 Mark 
mal CVmnuiei ab 

.,:■',■ furdenOL 


tueil tummein 
WasafcdeaOL 


dielangeWai 




ausgewirkt. D 




dient, die ja t 
vol! kompatib 


/eisionbe- 


Wert auf deulschsprachige An- 

leiimiguiidBedieueiltihiLUig.Ein 
Verkciul'shii diiifte der einge- 
deutschte QL also kauni werden. 




(Maiifeid Kotting) 



io a 



Wer seinen 




Ei.-ieSola-HI.-n-rvidifLi: 



Computer liebt, 




schenkt ihm einen 




Baukasten. 



fischertechnik computing - das ist das neue System, mit 
■ dem man noch mehr Lefaen in den Home-Computer 
;,',prf? - bringen kann. Aus einem einzigen Baukasten lassen 
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Psion-Story 



Psion — eine Firma mil 



Der Name Psion stent fur Sincloir-Benutzer ganz 
oben, wenn es urn hervorraqende Software fur 
ZX81, Spectrum und nun audi den QL geht. Tat- 
sachlich hat die Firma einen kometenhaften Aufstieg 
hinter sich, und ein Ende ist noch nichf abzusehen. 
Wer und was steckt hinter diesem Softwarehaus? 
Dr. Bosetti war fiir uns in London und hat Psion 
unter die Lupe genommen. 



Das Taxi halt in dor Huntsworth 
I ' ; ■■! ■;.■: I.l<i . ■■■:<■ ;hurri 
11 Uhr mi! David Puller, detn 
Giiinder und Chef der Firma verab- 
redel bin. Eine leichte Verwunde- 
rung kommt auf, das Gebaude 
macht eher den Eindnick einer klei- 
nen Bastlerwerkstatt denn den einer 
Software-Firma, die einen Umsatz 
von 10 Millionen Pfund im Jahr er- 

1m Hause selbst erfahre ich die 
Losung: Das Hauptguartier von 
Psion ist verlegt worden, hier behn- 
det sich praktisch nur noch das Ver- 
sandlager. Zuin Gliick ist das neue 
Hans nur 100 Meter entfemt. Schon 
von auBen kann man hier den Erfolg 
der letzten Jahre erkennen, ein de- 
zentes goldenes Tiirschiid und der 
Stil erinnern an Downrngstreet 10. 

Zwei junge Damen sitzen in der 
Empfangshalle. David Potter wird 
sofort hier sein, berichten sie mir. In 
denwenigen Mir_u:en Wanezeu be- 
kornme ich einen Eindruck von der 
Aktivitat von Psion, das Teiefon steht 
keine 10 Sekunden still. Die Darnen 
haben wirklich einen »Full Time 
Job«. 

Wahrend ich noch an den Wan- 
den die Produkte bewundern kann, 
die Psion groB gemachl haben — VU 
3D, Hungry Horace, Fhghtsimuiation 
und wie sie alle heiBen — kommt 
auch schon David Potter, um mich 
abzuholen . Er ist es, der diese Firma 
als Ein-Mann-Betrieb Ende 1980 ge- 
grundet hatte. Nicht ohne Stolz er- 
zahlt er, daB er das Staitkapital fiir 
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und er hat lange Zeit iiberlegt, ob er 
seine akademische Laufbahn auf- 
geben soil. 

Betrachtet man die Gehilter an 
den britischen Universitaten, so 
kann man wohl sagen, daB sich zu- 
mindest in fmanzieller Hinsicht sein 
EntschluB als richtig erwiesen hat. 
Zur Zeit beschaftigt seine Firma et- 
wa 65 Mitarbeiter und ist weiter auf 
! >p.-:ns:onskurs. 

Angeftingeri hal allea mil Spiel- 
prograrnmen fur den ZX81 vmd 
Psion hat damals gezeigt, was man 
alles aus diesem Computer heraus- 
holen kann. Noch heute sollen sich 
einige diese r Programme recht gut 
verkaufen. Und wer zum Beispiel 
das Schachprogramm Oder den 
Plugsimulator fiir den ZX81 kennt, 
kann nur bestatigen, daB der "Klein- 
ste« von Sinclair Qualitaten zeigen 
kann, die man ihm vorher nicht zu- 
getraut hatte. 

Mit dem Spectrum 
kam der Boom 

Der grofie Durchbruch fur Psion 
kam aber erst mit dem Spectrum. 
Einerseits hat Sinclair erkannt, daB 
die Software von Psion qualitativ 
sehr hoch stand, andererseits sah 
Psion die groBen Marktchancen des 
Spectrums voraus (in England hat 
der Spectrum fast die gleiche Stel- 
lung wie der C64 hier in Deutsch- 
land). Dadurch kam es su einer 
fruchtbaren Zusammenarbeit zwi- 
sche: - ! ci.iesen beiden Firmen. 

Neben solchen erfolg re ich en 
Spielen wie Hungry Horace wurden 
auch wieder die Moglichkeiten des 
Computers mit Schach und Plugsi- 
mulator voll genutzt. Diese letzten 
beiden Programme werden wohl 
ebenso lange verkauft werden, wie 
der SpcciTarri eihalllich ist. 



Durch die Strategie, eine Reihe ih- 
rer Produkte unter dem Label Sin- 
clair zu verkaufen, entstand furviele 
der Eindruck, Psion ware mit Sin- 
clair viel enger verbunden. als es 
tatsachlich der Fall ist. Psion geht si- 
cher seine eigenen Wege. So hatte 
man sich bereits 1982 iiberlegt, die 
Firma nicht nur auf einem Bein, den 
Spieiprogrammen, stehenzulassen. 

Psion begann bereits 1982 mit der 
Entwicklung eines Programm- 
Pakets fur den professionellen An- 
wenderkreis. Es sollte die vier 
Hauplanwendungsberetche, Text- 
verarbeitung, Datenbank, Kalkula- 
tion und Grafik, umfassen und sich 
neben Leistungsfahigkeit durch au- 
Berst einfache Bedienbarkeit aus- 
zeichnen. 

Um ein solches Produkt tn best- 
mo glicher Art herzustellen, benotigt 
man laut Potter die beslen Hilliniitel, 
und so entschloB man sich bei Psion, 
zur Entwicklung der Programme ei- 
ne »Mini Vax« anzuschatfen. Heute 
hat sich das Konzept, wie es scheint, 
derart bewahrt, daB die Firma uber 
vier diesei Computer verfugt. 

AlsSindciiL danri nntcr anderem 



Monate voraus. Alle QL-Besitzer 
kennen die Programme, an denen 
Psion in dieser Zeit gearbeitet hat. 
Es sind Quill, Abacus, Archive und 



fert. 

Interessant isl, daB XChange teu- 
rer ist, als der QL zusammen mit 
dem Software-Paket, Dabei kann 
man sagen, daB der Preis fur 
XChange durchaus gerechtfertigt 
ist, betrachtet man Konkurrenzpro- 
dukte auf dem Mark! fur integnerte 
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Charme 



Software, Dies nnterstreicht Psions 
Ambitionen. die Nirmmer 1 unter 
den europaischen Softwarehausem 



Psions Aktivitaten. Es handelt sich 
um den Taschencomputer »Organi- 
zer«. Er ist progjammierbar und 
karm bis zu 32 KByte Daten spei- 
chem, Diese Kapazitat wild dem- 
nachst sogar auf 64 KByte ausbau- 
bar sein. 

Dabei handelt es sich urn einen 
Permanentspeicher, die Daten blsi- 
ben sogar erhallen, wenn die Batte- 
rien ausgetauscht werden. Zusatz- 
hch verfiigt das Gerat fiber eine 
RS232-Schnittstelle und kann. somit 
an alle Rechner, die eine solche 
Schnittstelle haben, angeschlossen 
werden. 

Wen wundert es, daB sich auch 
dieses Gerat als Volltreffer erwies. 
In den ersten sechs Monaten wur- 
den in England schon 20000 Stuck 
davon verkauft. Zur Zeit sielit Psion 
fur den Organizer Datenbanken auf 
Modulen her, so gibt es bereits »Me- 
dtpakn, eine Datenbank, die bei der 
medizinischen Krankheitsanalyse 
helfen kann. 

Bei all diesen Aktivitaten auf dem 
Geschaftsbereich konnte man mei- 
nen, daB keine Zeit mehr fur den 
Heimcomputermarkt iibrig bleibi. 
Aber Psion hat kein Interesse, sich 
aus diesem zuriickzuziefien. Man 
will lediglich die groBeren Moglich- 
keiten der neuen Mikroprozessoren 
nutzen und sieht wohl auch eine gro- 
Be Zukunft in soichen modernen 
Computern wie dem QL (und ande- 

Daher ist es nicht verwunderlich, 
daB eines der ersten oSpielpro- 
graramed fur den QL auch aus dem 
Hause Psion slammt, das QL- 
Schach. Wiederum besticht das 
Prograrnm durch Qualitat. Dabei 
fasziniert nicht nur die herrorragen- 
de bewegte Grafib, sondern auch 
die Spielstarke des Progiamms. Zu- 
sammen mit reinen Schachcompu- 
tem konnte das QL-Schach itn letz- 
ten Jahr Weltmeister der Schach- 
computer-Weltmeisterschaften wer- 

Ich frage Richard Lang, den Autor 
des Programms. ob er es jemals ge- 
schafft habe, gegen sein eigenes 




Werk zu gewinnen. Er lachte nur 
und meinte, er habe nicht die ge- 
: inostt: Chance. 

Es wiirde eigentlich zur Tradition 
von Psion gehoren, einen Flugsimu- 
lator fur den QL herzustellen. Je- 
doch gibt man nach auBen hm keine 
Information uber Programme, die 
nicht fertig sind. Auf meine Frage 
hin, wie einmoglicher Flugsimulator 
fur den QL aussehen wiirde, gab es 
allerdings erstaunlich konkrete 

Psion ist eine Firma, die stark 
durch die Personlichkeit ihres Griin- 
ders David Potter gepragt ist. Neben 
seiner wissenschaftlichen Qualifika- 
tion und dem Gespur fur die Belan- 
ge des Markts scheint er auch die 
Gabe zu haben, sich die geeigneten 
Miiarbeiier auszusuchen. Und er 
weiB nur zu genau, daB eine solche 
Firma nicht ohne diese Mitarbeiter 
den gewunschten Erfolg haben 

So ist es nicht verwunderlich, da8 
das Flaire, welches man spurt, wenn 
man die Raume dieser Firma betritt, 
auBerordentlich wohttuend ist. Da- 
vid Frodsham, der die Abteilung 
Ausland leilet, fiihrte mich durch al- 
ia Raume. Nirgendvvo gab es einen 
Mitarbeiter, der nicht bereit war, 
seine Arbeit zu unterbrechen und zu 
zeigen, was gerade seine jetzigen 
Probleme beziehungsweise Pro : ek- 
te waxen. 

Iigendwie hat man den Eindruck, 
daB alle diese Leuie wissen, warum 
sie bei Psion und nicht irgendwo an- 



Der Housherr von 
Psion: David Potter, 
ein Strahlemann 
der Braache 



ders arbeiten. Bemerkenswert war 

in diesem Zusammenhang David 
Potter's AuBerung, daB er eine Fir- 
ma haben rnochte. in der die Mitar- 
beiter ihre Erfullung finden konnen. 
David Frodsham driickte die Ein- 
stellung der Mitarbeiter wahr- 
scheinlich sehr treffend aus, als er 
sagte »Wir arbeiten nicht gegen je- 
manden, wir arbeilen fur Psion, 
den:'! Psion. d;-Ji sod wir!« 

David Potter, der Mann 
hinter der Firma Psion 

Computer hatten ihn sett je her in- 
teressiert. Ehe David Potter mit 36 
Jahren die Firma Psion griindete, 
beschaftigte er sich mit Plasmaphy- 
sik und der Losung der hier anfal- 
lenden Probleme mit Hilfe von 
GroBrechnern. In entspannter At- 
mosphare stel 

bei einer Tasse Kaffee beieitwillig 
Rede und Antwort. 
Frage: Wie ist es zur Griindung der 
Firma Psion gekommen? 
David Potter: Schon immer habe ich 
viel dariiber nachgedacht, was ich 
mit meinem Leben anfange, und ich 
wiirde es begriiBen, wenn man 
mehr als eines davon zur Verfugung 
fiatte. Leider ist das nicht der Fall, 
und so muB man si eh entRcih]ii=3i:;n. 
wozu man sich entscheidet. Fur mich 
gab es seit je her einmal die akade- 
mische Laufbahn und als Alternati- 
ve den wirtschaftlichen Bereich. 
Durch mein Eiternhaus lag es nahe, 
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an die Universitat zu gehen, unci fur 
einige Jahre habe ich dort nach der 
Promotion Lehre und Forschung be- 
trieben, Dabei hat mich die Welt der 
Computer fasziniert und ich habe ei- 
nige Artikel unnd Biicher liber den 
Einsatz von Computern in der For- 
schung geschrieben. Mit der Ent- 
wicklung der Mikrochips eroffnete 
sich fur mich die Mciglichkeit, auch 
mein zweites Inteiesse, eine eigene 
Firma zu haben, ohne auf den Um- 
gang mit Computern verzichten zu 
miissen, zu verwirkhchen. 

Allerdincrs habe ich mil die Ent- 
sctieidung, dip akademische Lauf- 
bahn aufzuqeben, nicht leicht ge- 
<r::-c.:. _.:i j^'.ehen, daB die 



schei 



ts-en t. 



nenErnfluBaufnieirieEntscheidurig 
hatte. 

Frage: Die Griindung einer Firma ko- 
stet doch auch einiges Geld. Hatten 
Sic diose Mfficl 7.ur Vorfiigutig? 
D. Potter: Ich hatte 1974. als ich anting, 
konkret iiber eine Firma nachzu- 
denken, 2000 Pfund auf meinem 
Konto Dieses Geld habe ich in Ak- 
tien angelegt. Zu dieser Zeit war ich 
gerade an der Universitat von Cali- 
fornien. Als ich nach England zu- 
ruckkehrte, hatte sich mein Einsatz 
gliicklicherweise verdreifacht. Das 
hat mich ermutigt. systematisch an 
der Borse Geld zu invesheren. Als 
ich dann soweit war und 50000 
Pfund. zusammen hatte, nahm sich 
meine Frau das Geld und kaufte ein 
Hans. 

Das war sicher gut so, da wir auch 
Kinder haben. Allerdings muBte ich 
mil der Borse wieder von vorne an- 
fangen, um das Startkapital zu be- 
kommen, die Firma zu grunden. Aus 
der Tatsache, da6 es Psion gibt, kon- 
nen Sie erkennen, daB mir dies auch 
ein zweites Mai gelungen ist. 
Frage: Wann waxen Sie soweit? 
D. hitter: Im Oktober 1980 wurde 
Pa: on gegriindet. 

Frage: Wieviele Mitarbeiter hatten 
Sie? 

D. Potter: Angefangen hat Psion als 
Ein-Mann-Betrieb. Ich habe zu- 
nachst Produkte gesucht, die gut 
waren, aber wo es an der Vermark- 
tung fehlte. Damit kam das erste 
Geld herein. So konnte ich daraufhin 
arbeiten, mein eigentliches Ziel zu 
erreichen, die Entwicklung von ei- 
tienen Produkten. 

Nachdem im erslen Jahr 12000 
Pfund LFmsatz gebracht hatte und 
Charles Davies so ktihn war, sich mir 
anzuschlieBen, konnten wir im nach- 
sten Jahr schon einen Umsatz von 
620000 Pfund erreichen. Sicher war 
die fvu'ne Mitarbeit von Charles Da- 



vies sehr gut iiii die Fima. ich kanri- 
te ihn sehr gut vom Imperial College 
hier in London, da cr bei mir seme 
Doktorarbeit schrieb. Er war der be- 
ste Student, don icn kcnnengelemi 

Frage: Wie kameszuderZusammen- 
arbeit mit Sinclair? 
D. Patter: Anfangs waren wir fur Sin- 
clair ein Software-Haus wie jedes an- 
dere. Wir haben sicher sehr fruh die 
guten Chancen des ZX81 erkannt 
und versucht, das Potential auch die- 
ses kleinen Computers voll auszu- 
nutzen, Im Prinzip war es eine ver- 
riickie Idee, emeu Flugsimulatorfiir 
den ZX81 zu konzipieren. Aber das 
Projekt war sehr erfolgreich genau- 
so wie das Schachprogramm. Sin- 
clair hat da d urch umgekehrt erkannt, 
daB unsere Software dem Erfolg Sl- 
ier Produkte nur zugute kommt 



Dies wird uns auf dem Weg helfen, 
die Mummer eins unter den europai- 
schcn Software Hiiusernzu werden. 
Frage: Wie steht es mit dem amerika- 
:ii:-it;iift!-; Markt? 

D. Potter: Natiirlich haben wir auch 
diesen Markt im Auge. Es gibt be- 
reits eine Abteilung Psion USA in 
den Staaten, und wir werden in na- 
iler Zukunft XChange dort vermark- 
ten. 

Frage: Mit all den Erfolgen auf dem 
Business-Sektor, Ziehen Sie sich aus 
demHeimcomputer-Marktvolligzu- 
riick? 

D. Potter: Oil nein! Wir wissen sehr 
genau, womit wir groB geworden 
sind, und wir werden diesen Markt 
sicher nicht verlassen. Was wir in 
der Zukunft hier produzieren wer- 
den, konnen Sie am QL-Schach se- 
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nenWortschatzvon 12000 Wortenim 
43-KByte-Spectrum zur Verfiigung 
stellt, und der durchschnitfliche 
Spieler wird sicher vom Programm 
geschlagen. 

Froge: Offensichtiich liegen Sie mit 
(hro~ iCcn-.opt nicht falsch, 
D. Potter: Nein, ich glaube nicht. 
Schon im dritten Jahr des Bestehens 
von Psion konnten wir 1,5 Millionen 
Pfund umsetzen, und das beslatigt, 
daB unsere Produkte die Zustim- 
mung der Benutzer haben. Wir sind 
jetzt bei einem Umsatz von 1C Millio- 
nen Pfund angelangt, wobei aller- 
dings berucksichtigt werden muB, 
daB mit tlerweile ein nicht unerhebli- 
cher Teil hiervon aus unseren Akti- 
vitaten im professionellen Bereich 
heiriihren. 

frage: Wie sieht die Zukunft von 
Psion aus? 

D. Potter: Wir haben ein wichtiges 
Ziel erreicht, namlich die Tatsache, 
daB wir die Firma auf solidem 
Grund fest etabheit haben. Dies ge- 
schah dadurch, daB wir uns neben 
dem reinen Spiele-Markt fur Heim- 
computer auch den professionellen 
Markt durch XChange und den Or- 
gaiuier g&schlosscn liaben. 

Durch die groBen Umsatzzahlen 
sind wir in der Lage gewesen, ver- 
schiedene groBe Computer anzu- 
schaffen, so daB wir hervorragende 
Hilfsmittel zur Entwicklung unserer 
Produkte zur Verfiigung haben. 



Frage: Welche Software wird Psion in 
5 und in 10 Jahren produzieren? 
D Potter: Hoffentlich sehr viel! Wrr 
glauben. daB auf dem Gebiet der 
kilnstlichen Intelligenz, was immer 
damit gemeinl ist, sehr viel passie- 
ren wird. Nehmen Sie als Beispiel et- 
was, was ich gerne als Sprach- 
Prozessor bezeichne. Heute haben 
wir Textverarbeitungssysteme, und 
kaum jemand, der ein gutes System 
— wie Quill — benulzt hat, mag die 
Moglichkeit, die sich dadurch erge- 
ben, noch missen. 

Der nachste Schritt ist ein Pro- 
gramm, welches die Rechischrei- 
bung iiberpruft. Nun, seiche Pro- 
gramme gibt es bereits und sind ei- 
genthch ein groBes Problem, sobald 
nur genugend Speicherkapazitat 
zur Verfiigung steht. Dann kommt 
der Schritt, die Grammatik zu iiber- 
priifen. Auch da* ist bereits monlich 
und auch Psion wird bald ein sei- 
ches Programm auf den Markt brin- 
gon. Wenn mansichdies betrachtet, 
dann kann man das folgende auch 
bereits sehen. namlich ein Pro- 
gramm, welches den Stil des Doku- 
ments iiberpruft. Auch hier ist im 
Prinzip nur die Speicherkapazitat ei- 
ne notwendige Vorraussetzung. 

Der Sprachprozessor ist dann ver- 
wirklicht. wenn der letzte Punkt ver- 
wiiklichi isi, die Spracheingabe. Ich 
hoffe, daB Psion in sagen wir funf Jah- 
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ren auf diesem Markt ein wichtiges 
Won mit zu reden hat. 

Aber das ist nattirlich nicht das 
einzige. Die Computer in den neun- 
ziger Jahren werden immer »intelli- 
genter*, neben der Spracherken- 
nurig wird es auch iiber eine Karae- 
ra die Bilderkennung geben und Ir- 
gendwaim werden die Computer 



Psion-Story 



uns sicher nicht in den Fahigkeiten 
nachstehen, die anfallenden Aufga- 
bcn zu eriedigen. 

Ob dies vom philosophischen 
oder theologischen Standpunkt aus 
gesehen sinnvoll ist, steht auf einem 
anderen Matt Wir wissen, daft der 
Menscti die Dinge verwirklicht, zu 
denen er fahig ist, und genauso wird 



!■';.■; i'jU clemBau v( 

ren Computem sein. 

huge: Eine letate Frage: Sie verdie- 

nen mit Hirer Firms sicher eine Men- 

ge Geld. Warum kaufen Sie sich 

nicht irgendwo in der Siidsee ein 

Stuck Land mid setzen sich zur 

Ruhe? 

D. Potler: Das ist langweilig! □ 



Die Multis kommen 

Wer immer noch meint, Deutschland wiirde Landern 
wie England und den USA in der Entwicklung von 
Hard- und Software fur Homecomputer nachhinken, 
kann jetzt eines Besseren belehrt werden. 

Inzwischen 'An.;r:-.c\zcu deu;;:;;iic qe. Hierbci nandelt es sich um ein 

Firmennichtniehr—jteenahscne Anik&l- und Lagerverwaltungssy- 

An'.venderprogianune. siesdiroi- siern, danr-llcaeciiiuchlid-on infor- 

ben sie selber unci das gai nicht mationen einer Warenver wall una 



stand aus der eigenen Notlage Hun- 
derte von Rundbriefen per Hand 
adressieren zu miissen. Da der eng- 
lische Softwaremarkt in dieser Hin- 
sicht nichts anbot. machte man aus 
der Not eine Tugend und entwickel- 
te eine vol! meniigesteuerte und im 
Maschmencode geschriebene 
Adressendatei. die zudem noch 
sehr anwenderfrendlich ist, das 
durch die meniigesteuerte Maske, 
das Lesen langweiliger und lang- 
wieriger Beschreibungen nahezu 
entfallt. Nach anfanglichen Schwie- 
rigkeiten, Datenverwaltung und 
richtige Anrede rniteinander zu ver- 
knupfen, ist nun auch dieses Pro- 
Mem gelcisl. Das Prcgramm sortiert 
selbstandig nach Nachnamen. An 
rede und Adressierung erfolqen 
trazdem :n richlre; rit..tii; v *o ■■is, 
zum Beispiel »Sabx geehrte Fran 
Mustermann* und nicht j>Frau Mu- 
stermann, Erika». Und wen die alte 
Version stort. kann sie. gegen einen 
geringen Aufpreis, gegen die neue 
Version umtauschen. 

Fast die gleiche Maske wie bei 
Multifile findet sich auch bei Multila- 



Eisid'it wird sowon! eine Artikelli- 

ne Inventurliste mit den dazugehc- 
rendenEinkaufspreisen. AuBerdem 
werden Artikel, die den Mindestbe- 
stand unterschreiten, besonders 
ausgeworfen. Beide Listen kdnnen 
auch uber den Drucker ausgege- 

Auch bei Multilage ist die Bedie- 
nungsehr einiach, da imiru'igesreu- 
erl, das Sort der pro Datei mdgli- 
chen 532 Artikel sehr schneli. 

Die dritte Datei in diesem Multi- 
Bund ist neu: Multidata — eine uni- 
verselle Datei, bei der der Anwen- 
der seine Maske mit Hilfe eines Full- 
Screen-Ed ltors selbst erstellen 
kann. Obliqatonsch smd auch hier 
die 64 Zeichen/Zeile. Eine Bedie- 
nungsleiste im unteren Ted des Bild- 
schirms zeigt an, mit welchen Tasten 
man Unlerprogramme wie Su- 
chen/Lbschen anwahlt. Auch hier ist 
das Suohen und Sortieren der Daten 
sehr schneli und erfolgt nach behe- 
biui/'i Kriterien, 

Die Daten von Multidata kdnnen 
durch ein Code-VVod wirschKi^seli 
werden und sind fur Unbefugte 
nicht einsehbar. Fin^n weileren Vor- 
teil bietet diese Datei durch die 
Mbghchkeit, die Formatierung ftir 
den Drucker selbst zu bestimmen. 
Zur Verfligung stehen zwei Formate 
(Etiketten und Listen), die auch bei 
bereits erstellten Dateienfonn ver- 
anderbar sind, so daB mil gleichen 
Daten sowohl Etiketten wie auch Li- 
iienausdjuokc moqlich sind, 

Alls drei Muiti-Dateien werden 
auf Kassette geliefert, sind aber oh- 



ne Probleme direkt auf Diskette be- 
ziehungsweise Microdrive-Cart- 
ridge iiberspielbar und somit auf al- 
ien drei Datentragem zu nutzen. 

Doch Multi-Produkte beschran- 
ken sich nicht nur auf Dateien. Spe- 
ziell fiir das Beta-Disc-Floppy- 
System wurde eine Reihe von Pro- 
grammen neubearbeitet bezie- 
hungsweise neuentwickelt. Multitas 
ist zum Beispiel eine Erweiterung fiir 
das Tasword, bei der die Option fiir 
die Blockverschiebung stark ver- 
bessert und beschleunigt wurde. 
Auch das Suchen bestimmter Worte 
im Text ist jetzt wesentlich schneli er. 

Eine ahnliche Weiterentwicklung 
ist Multipas. Hier wurde das Hisoft 
Pascal an den Floppy-Betrieb ange- 
pafit, wobei jetzt selbst die Include- 
Funkiion auf Diskette mbglich und 
DOS-Befehle aus dem Compiler auf- 
rufbar sind. Ein besonderer Leckei 



bisse 



.fur a 
; der .Dint 
:?in. d;i& ai 



;Floj 



r curf- 



Heftb 

Und da8 demr.achst deutsche Fir- 
men auch auf dem Hardware-Sektor 
mitreden konnen, beweist das neue- 
ste Multi-Produkt: Multicom — eine 
Schnittstelle fiir Datenfemubertra- 
gung. Als absolute Weltneuheit und 
fruher als englische Firmen es an- 
bieten konnten, ist der Spectrum mit 
Hilfe einer RS232-Schnittstelle imd 
der dazugehbrenden Software so- 
wie einem Akustik-Koppter jetzt in 
der Lage, mit anderen Computerty- 
pen fehlerfrei zu kommunizieren. 
Der Weg in alle Mailboxen des In- 
und Auslands ist frei, da sowohl die 
tjbertragungsrate (7 oder 8 Bit) als 
auch Stop-Bits (1 oder 2) und Parity- 
Bits (gerade oder ungerade) frei eiri- 

300 . -, -, - ■■ 

ftir den Export auch andere Uber- 

tragungsgeschwmdigkeiten mbg- 

Mit dieser Neuentwicklung ist al- 
so (fast) der letzte Schritt getan, das 
Image des Spectrum aufzupolieren. 
AuBerdem zeigt das Beispiel auch: 
Es tut sich was, auch in diesem unse- 
ren Lande. 

(Karma Krawczyk) 
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An diesen Sinclair-Biichem 
kommen Sie nicht vorbei 
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Der Ein sting in FORTH. N D <.mb« i»m. SOT: 



Ma rkt & Tec hnik-Fac Isbiic her 
EriiaKen Sie bei Ihrem Buchhandler. 

Fragen Sie dort nacii unserem 
Gesamtkatalog mil Liber 170 neucn 
ComputerbiJchern. 



bitts an I 

einen unserer Depot-Handler. Adressenverzeichni: 
Ende das Hslles. Beim Markl&Technik Verlag 
eingehende Bestellungen werden von den 
Depot-Handlem ausgelielert. 




MarktSTechnik Verlag AG », 



Wir hoffen, daB diese Einffih- 
rung Ihnen eine Hilfe isi. Ein kom- 
plettes Programm aiisfiihrlLch 
'.ter zu kommentieren, wiirde 
sic'r.enich den -'nhtnen eineriib- 
l:r:hcii Einfu'ininq sprengen, 

Sollten Ihnen nach Kurs-Ende 
noch einige Fragen unbeantwor- 
' A geblieben sein, so schreiben 
ie mir kurz. Ich werde dann ver- 
suchen, . Ihnen weiterzuhelfen. 
Meir.e Anschrift rmden Sie am 
Ends dieses Sor.derheftes. Bitte 
!l":uer. Sic Kiickpuilo bei. 

(Harald Wilhelin) 



Voraussetzung sind allerdings 
Eifahn.nv-iren m Maschin;-;:-! 
sprache imd ein 48-KByte- 
Spectrum. Vom Prinzip her lassen 
sich die Routinen auf jeden anderen 
Z80-Computer, wie den Schneider 
CPC 464 oder den Epson QX.10 
iibertragen. Der Computerbesitzer 
mu6 allerdings die Speicherbele- 
gungen seines Computers kennen, 
und die Adressen andern. Weiter- 
hin mussen Sie einen Assembler be- 
sitzen, der Labels verarbeite!. 

Die Palette der Routinen beginnt 
bei dei Anlage von Strrngarrays und 
mhrti^erleistun^sla-kePiinlinuii 



Bevor wir uns an die erste Routine 
heranwagen, sollten einige kurze 
Voraussetzungen gesctiaffen wer- 
den. Der Befehl 

CALL #OD6B 

fiihrt ein CLS aus. AnschlieBend 

muB der Bildschirm mii folgender 

Befehlsfolge eroffnet werden: 

LDA r 2 

CALL #1601 

Die Proposition auf dem Bild- 
schirm wird in der Maschinenspra- 
che auf eine eigenturnliche Art und 
Weise berechnet Die Zeilen wer- 
den von oben (24) nach unten (1) ge- 
zahlt. Die Spalten werden von links 
{33) nach rechts (2) gezahlt. 



Kurs 

Routinen filr die Praxis 

Professionelle Programme fur die Datenverarbeitung 
im Hiiro, in der Lagerverwarrung, fur komplizierte 
Berechnungen sind uberwieaend in Maschinenspra- 
che geschrieben. Nur dann Tairien sie entsprechend 
schnell. Happy-Computer stellt, gewissermaBen aus 
dem Baukasten, einen Safe leistungsstarker Maschi- 
nencoderoutinen vor, mit denen ein Spectrum-Besit- 
zer in der Lage sein sollte, ouch Programme fiir 
ernsthaffe Anwendungen zu schreiben. 



Listinc 








Nr 


Art der Routine Adresse > Start - 


- Ende 


1 


DIM-Befehl 


EA60 


EAA1 


2 


Deutscher Zeichensatz 


EAA2 


EE16 


3 


SCREENS-Farben 


EE17 


EE31 


4 


PRlNT-Routine 


EE32 


EE4B 


5 


Tastatur-Abfrage 


EE4C 


EEC3 


6 


String-Abfrage 


EEC4 


EEDB 


7 


Eingabefelder markieren 


EEDC 


EEE4 


8 


Feldrnarkierungen loschen 


EEE5 


EEEA 


9 


Vergleich der Eingabe 


EEEB 


EEFD 


10 


Ausgabe von Datenfeldern 


EEFE 


EF06 


11 


Zahlenausgabe 


EF07 


EF6B 


12 


PLOT-/DRAW-Routine 


EF6C 


EF7A 


13 


PLOT-/DRAW-Routine 


EF7B 


EF89 


14 


PLOT/DRAW-Routine 


EF8A 


EF98 


15 


PLOT-/DRAW-Routine 


EF99 


EFA7 


16 


SCROLL-Routine 


EFA8 


EFFC 


17 


Sortier-Routine 


EFFD 


F1D2 


18 


Zablen-Umwandlung 


F1D3 


F241 


19 


String-Operation 


F242 


F27A 


20 


String-Operation 


F27B 


F29B 


21 


String-Operation 


F29C 


F2C6 


22 


Wandlung dezimal > hexadezimal 


F2C7 


F36C 


23 


LOAD-/SAVE-Routine 


F36D 


F37A 


24 


LOAD-/SAVE-Routine 


F37B 


F387 


25 


LOAD-/SAVE-Routine 


F388 


F3A8 


26 


LOAD-/SAVE-Routine 


F3A9 


F3C1 



Lists der Maschinencode-Routinen 
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2 


*** 










4 


«#* L1 












ANZAHL 






00*4 






LAENGE 






EA60 


2A4B5C 


30 


START 


Ld" 


23627 






50 






HL 


EA64 








LD 


BC , ANZAHL*LAENGE+8 


EA6A 


CD5516 


80 




pop L 


HL 


EA6B 


5" 


too 






(HL1.193 


EA7Z 


01A50F 


130 




LB 


BC , ANZAHL *LAENGE» 5 


EA74 


70 


150 




LD C 


"hl>,b 


EA75 












EATS 


23 


I BO 




INC 


<HL>,2 












SC, ANZAHL 


EA7C 












EA7E 


23 


MO 




LB" 


mLi.B 






















LD 




EA83 












EA84 


23 


i 




INC 


(HL) ,B 












E,L 


EA8B 






















BC , ANZAHL*LA£NGE-1 


EA8F 








LDIR 




EA92 


11440F 


350 




™ P 


DE,ANZAHL-1*LAENGE*8 


EA95 


19 








HL,DE 






380 






BC.LAENBE-t 1 


EA99 












EA9B 




400 




INC 












SEC 


BC 






420 
















OR 


C 


•"" 


C9 


440 
452 


*»* 


RET 




SC36 




460 


CHARS 


EOU 


23606 


EAA2 


Z1O03D 


HI 


SETCHA 


LD 


BC , 7*8 
HL, 13616 


EAAB 


11CFEA 


til 




LD 


DE.CHARSE 


EAAD 


21CFED 






LD 


HL.NEUCHA 












E, <HL) 


EAB1 


23 














540 






D, (HL) 


EAB3 


23 






















EAB5 








OR 








°°° 




" 


Z.SETCH2 



Position beziehen 



nummer in das Register C Die Ee- 

LD EC, #1821 

CALL #0DD9 

setst nun die Pnntposition AT 0,0. 

Ein Zeichen bringen wir mit fol- 
gender Folge auf den SCREEN: 
LD A,"A" 
RST 18 
In diesem Fall wurde das Zeichen A 
in don Akkurnulator gebracht, und 
mit dem zweiten Befehl gedruckt. 

Da wir sehr oft Screenergebnisse 
erhalten werden, sollte man sich 
diese Befehle auf jeden Fall mer- 



ken. 



DIM-Befehl in Maschinensprache. 
Beschrank: ...':: ?■ ■: -;<i £" Arigele- 
genheit auf zweitiiroensionale String- 

Gro8e Datenmassen sollen fur 
den Programmierer schnell und ein- 
fach zuganglich sein. Ebenso ist die 
Voraussetzung vorgegeben, da£ 
diese Datenf elder aucli aus Basic 
anzusprechen sind. Was ist da einfa- 
cher, als die hauseigenen Spec- 
tmm-Variablen zu miBbrauchen. 

String-Konstruktionen 

Die vorgestelite Routiue legt ein 
Stringarray an. Sie vergeben in Zeite 
10 die Anzahl der Felder + 1, und in 
Zeile 20 die Lange jedes Feldes. Das 
Addieren der I ist notwendig, da 
das ganze letzte File nicht benutzt 
werden kann. Das geschieht aus fol- 
tje;ideiii Grund: 

Urn das Ende der Datei zu erken- 
nen, suchen wir lm Speicherbereich 
das angehangte Stopbyte (128); sie- 
he Spectrum-Manual Seite 165. Da 
dieses durch weitere, spater ange- 
hangene Variablen, nach oben ge- 
scfioben wird, wiiiden wir das Ende 
der Datei nie fmden. Aus diesem 
Grund belegen wir das letzte File 
mit 128. Irgendwo finden wir das 
T.: .de-ZeLcne:.i ;ff::~ immer. 

Die Funktionsweise ist eigentlich 
ganz einfach. Wir holen aus der Sy- 
stemvariablen VARS die Anfangs- 
adresse des Variablenbereiches. 

An dieser Stelle beschaffen wir 

CALL #1655 
die Gesarntlimge, berechnet aus 
Anzahl*Lange+ 8. Platz. Die 8 Bytes 
sind Informal lonen an das Betnebs- 
system des Spectrum. 
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Mit diesen 8 Bytes erkennt das Be- 
triebssystem sofort alle Syntaxfeh- 
ler. Ebenfalls kann durch die Anga- 
be der Gesamtlange+ S dieser Va- 
riable nblock ubersprungen wer- 
den. Unsere Routine fullt jetzi noch 
den gesamten restlichen Speicher- 
bereich mit Blanks. Zu diesem 
Zweck wird der Schaufelbefehl 
LDIR benutat. Zwischen Zeile 360 
und 410 wird das letzte File mit 
128em gefullt. In der letztenZeile er- 
folgt der Rticksprung. 



EABB 




390 










eaba 

EA8C 
EABD 


» 


%1 


LOOP 02 


LD 
INC 


;r"" 




EASE 


!BEE 


^SC 




DJNZ 


LOOP 02 




EAC2 


21CFEA 


660 


SETCH2 


LD 


HL, CHARSE 




EACS 


1100O1 


6BO 




xor 


HE, 256 






ED32 












EACB 


22365C 


710 




LD 


(CHARS. ,HL 




EACF 


2Z0OIC02 


710 


CHARSE 
NEUCHA 


E 


91*8+CHARSE 
34,0,28,2,30,3 




EDDB 
EDE3 
EDE3 


AFED 

22O01C22 

B7ED 

22002222 


770 




DEFU 


?2*8+CHARSE 


34 28 


93#e+CHARSE 




EDEF 


BFED 

OO 384 4 78 


BOO 




DEi=U 






EEOB 


423C424Z 
423C4Z42 


£ 




E 


39*B+CHARSE 


i 66 66 O 


60*e+CHARSE 
6 1*8+ CHARSE 


66,60,0 



II — - ALLES IM GRIFF! 



DER AUFRUSTSATZ - 
VOM SPECTRUM 
ZUM SPECTRUM 
PLUS 




Space- tesii 
Iflr Und Kir 
und rjas n 
HanSDucii I 



Kurs 



EEOC 


42O04242 


860 




m 




66 60 


"" 


coco 


B72 


** + 


QEFU 


° 




















374 


*» 








0007 














oooo 




890 


PAPER 








0000 




900 


BORDER 








EE17 


CD4DOD 






CALL 


BOP4D 




EE1A 




920 




LD 


ti t 16. 




EE1C 


D7 












EE1D 








LD 


A, INK 




EE1F 




9=0 










EE20 










ttlCAD 








970 










EEZ5 


D7 
















990 




LD 






EEZB 


D7 


OIO 




CALL 


fflCAD 


















EE2E 


CD9B22 








#229 B 








I'l 


£* 


RET 








TINS 










044 


** 






EE32 


46 








B, (HL> 




EE33 


23 


;^r 




LD 


C, <HL> 












INC 


HL 












PUSH 






EE37 


CDD90D 






CALL 


MODD9 












POP 






EE3B 


46 












EE3C 


23 






INC 






EE3D 


CO 


140 










EE3E 


7E 
















160 




INC 


HL 




EE40 


ES 
















1BO 




RST 


16 




EE42 








POP 


HL 












POP 


BC 




EE44 


10E7 


210 










EE46 


7E 




















CP 


128 




EE49 


20E7 


240 






NZ.PRINT1 




EE4B 


C9 


2 = Z 


*L+ 


RET 














*** 









Aufgerufen wird diese Routine mil 
CALL START. Andere Variablen 
diirfen nur nach dem Aufruf defi- 
niert werden. 

Nachdem wir nun ein Datenfeld 
anlegen kd'nnen, wollen wir natiir- 
lich auch Menus, Kommentare oder 
Fehlermeldungen auf den Bild- 
schirm bringen. Diese sollen, da wir 
deutsch sprechen, auch die deut- 
schen Umlaute enthalien. 
Zeichensorz erneuem 
(Assemblerlisting 2) 



Die;-;e Routine ferl.igt einen neuen 
Zeichensatz mi' doutschen Umlau- 
ten an. Sie wurde so variabel ge- 
schneben, daB Sie auch Zeichen 
umdefmieren konnen. 

Werui dieses I.I r. lor program m mil 
CALL SETCHA aufgerufen wird, ko- 
piert es erst einmal den Originalzei- 
chensatz in einen Bereich mit dem 
Karmn CHARSE. 

Sie liegl nun das ersie Byie unse- 
rer Anderungen und priift es auf En- 
de (0). Wenn hier keine stent wer- 



den die nachlolgenden 8 Bytes in 
den mit der Adresse spesafuderten 
Bereich eingeschrieben. Anschlie- 
ftend wird die Systemvariubie 
CHARS neu berecnnet (CHARSE- 



I Anderun- 
vornASCII- 



Wer 



Sie 



DEFE Statement, 
nicht, ar Ende die 

Diese beiden Routinen sollten v< 
Ihren Programmen immer zuerst 
isufgeiut'eri warden. Der Bird schirm 
soil naturlich auch noch Farbe be- 
kennen. 

Die nachfolgende Kurzroutine 
iiimrnt Ihnen diese Albeit ah 
(Assemblerlisting 3) 

Diese Routine rufen Sie mit CALL 
FARBE auf. Bei Return entspricht die 
Bildschirmfarbe Ihren Wunschen. 

Es gibt hier keinerlei Besonder- 
heiten, die beachtet werden miis- 
sen. Diese Teile muBteri eigentlich 
ohne gioBe Erklarungen zu verste- 
hen sein. Es werden lediglich die 
Spectrum-Steuerzeichen benutzt. 
(Assemblerlisting 4) 

Die nachfolgende Routine ent- 
stand, nachdem klar war, dafl in 
kommerziellen Programmen ein 
standiger Menii-Aufbau notwendig 
und sornit unerlaBlich ist und nach- 
dem folgende Bedingungen an sie 
gek.nLipIi wurden; 



1. Die 


zu dructenden Zeichen sollen tfr 




aul eine. mi! dem Ausdmck test 




jundene, Position geaetzt werden. 




noliae CH mufl anoeh&ngt werden 






J. Dx 


Zahl der Zeichen mnB variabel 


4. Me 


hrere AusdrQcke sollen mil emem 


Ail 


ruFgedruckt werden 



Diese kurze Routine erfulrr diese 
Anforderungen. Allerdings soil das 
Datenfeld aus den c.ben genannten 
Grunden ein ganz bestimmtes For- 
mat haben: 

DATOOl DEFW #1331 ; Posilion 

DEFB 6 : Zeicht-naahl 

DEFM "TEXT!" 
DEFB 13 



;CR 
■ Ends 



Der Aufruf geschieht nun nach fol- 
:ie:idem Muster 

LD HL.DATOOl 

CALL PR1NT1 

Sind die beiden ersten Bytes in 

das Doppelregister BC geladen, 

wird diese Position auf dem Bild- 
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1F3D 


1260 PAUSE 


ESU 


H1F3D 


EE4C 013200 


1270 GET1 


LD 






12BO 




PAUSE 


EE52 2IB03C 




LD 


HL, 23728 


EE33 3420 


1300 


LB 


1HLI," * 


EE37 FDCB01AE 


310 


RES 




EE3B CD3FEE 




CALL 


GET2 


EE3E C9 




RET 




EE3F CD71EE 






GET3 


EE62 11B03C 




LD 




EE65 32BOSC 








EE6S C-1000O 


370 














EE6D 28DD 




JR 










C 


EE70 C9 




RET 




EE71 3A075C 






A, (HSC07) 


EE74 FEFF 




CP 


233 




440 




NZ, GET4 


EE78 3EOO 




LD 




EE7A C9 




RET 




EE7B C USE 02 


470 GET4 






EE7E OEOO 




LD 










Z.GETS 


EEB2 3EO0 










310 GETS 






EEB7 3B0Z 


320 








330 






EE6B IS 




DEC 






330 




E,A 


EE80 CD3303 


370 


CALL 
RET 


«0333 


EE91 CD4CEE 


3B0 GET 


CALL 




EE94 FEE2 


390 


CP 




EE96 2O03 






NZ.GET7 


EE7B 3E7B 


610 




A, 123 


EE9A C9 




RET 




EE9B FEC3 


630 QET7 






EE9D 2003 






NZ , GETS 


EE9F 3E7C 


ABO 










RET 




EEA2 FECD 


■470 GETS 












NZ.GET9 


EEA6 3E7D 




LD 


A, 123 






RET 






710 GET9 


CP 




EEftB 2003 


720 


JP 


NZ, GETIO 




730 


LD 




EEAF C9 


740 


RET 






730 GETIO 






EEB2 ZOO 3 




JR 




EEB4 3E5C 


770 




A, 92 


EEBfi C9 




RET 




EEB7 FECB 


790 GETI1 






EEB9 2003 


eoo 


JR 


NZ.GET12 




810 




A, 93 


EEBD C9 1 


820 








B30 GET12 




204 




840 


RET 




EEC1 3E7E 1 


BBO 


LD 




EEC3 C9 I 


860 


RET 





schilm gesetzt. AnschlieBend wird 
die Anzahl der Zeichen, einschlieB- 
lich CR, in das Zahlregisfer B gela- 
den. Nun wird, bis B auf ist. Zei- 
chen fur Zeichen geladen, und auf 
den Bildschirm gebracht. 



Das dann folgende Byte isi entwe- 
der ein Stopbyte (128) oder die Zei- 
1 en position des nachsten Aus- 
drucks. 

Wenn Sie noch weiteie Ausdriicke 
ein- oder anfugen wolien, so schie- 



ben Sie das Stopbyte immer an das 
Ende. 

In meinen eigenen Programmen 
werden auf diese Art und Weise 
ganze Mentis auf den Bildschirm ge- 
bracht; und das verliallnisriiiiBig 
schnell. 

Wie der Computer 
mit Daten umgeht 

Nun haben wir mit einem Aus- 
druck den Benutzer aufgefordert, 
eine Eingabe zu tatigen. Eine Tasta- 
auabfrago muB her. 
Die Tosintumbfrags 

Die Tastaturabfrage (Listing 5) ist 
sugegebenermaBen das schwierig- 
ste Unterfangen. Diese Routine soll- 
te selbstandig auswerlen und die 
Umlaute auf bestimmte Tasten le- 
gen. Die Rouiine fuhrt die im Spec- 
f rum-ROM liegenden Auswertungs- 
routinen aus, und legt die Umlaute 
auf folgende Tasten: 



a = SYMBOL SHIFT a 
6 = SYMBOL SHIFT s 
fl = SYMBOL SHIFT d 
B = SYMBOL SHIFT f 
A = SYMBOL SHIFT q 
6 = SYMBOL SHIFT w 
u - SYMBOL SHIFT e 



Wenn Sie sich ein wenig mit der 
Routine beschaftigt haben, konnen 
Sie die Umlaute audi auf Tasten le- 
gen, die Ihren Vbrstellungen ent- 
sprechen. 

Dieses Unierprogramm wird mit 
CALL GET aufgemfen, Sie spnngt 
nur bei einer gedriickten Taste zu- 

Der Code der gedriickten Taste 
befindet sich zur Weiterverarbei- 
tung im Akkumulator. 

Der Zeichenspeicher wurde in 
dieser Routine auf 23738 gelegt. Soil- 
ten Sie mit dem Beta-Disk-Floppy- 
laufwerk oder mit dem Interface ZX- 
LPRINT III arbeiten, konnen bei al- 
teren Versionen Komphkationen auf- 
treten, Legen Sie in diesen Fallen 
den Zeichenspeicher auf einen an- 
deren Plate. 

Nun konnen wir mit unseren Pro- 
grammteilen schon so allerhand. 
Was ist aber, wenn sie einen ganzen 
Sat2 ais Eingabe erwarten? Schauen 
Sie in diesem Fall auf Routine 6. 

String-Abfmge 

Dns im 1 listing 6 

programm 

Ubei'leyung: 



aSls, 21 
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iS6i 


#L+ 












1862 


m 


LlfttTMR 








1864 


*** 








EEC4 


C5 


1B70 


INPUT 1 


PUSH 


BC 


EECS 


E5 


1880 






PUSH 


HL 


EEC6 


CD91EE 


1890 






CALL 


GET 


EEC9 


FEOD 


1900 






CP 


13 


EECB 


2809 


1910 






JR 


Z, INPUT2 


EECD 


El 


1920 






POP 


HL 


EECE 


77 


1930 






LD 


(HL) ,A 


EECF 


D7 


1940 






RST 


16 


EEDO 


CI 


1950 






POP 


BC 


EEDi 


23 


1960 






INC 


HL 


EED2 


10F0 


1970 






DJNZ 


INPUT 1 


EED4 


1802 


19SO 






JR 


INPUT3 


EED6 


CI 


1990 


INPUT2 


POP 


BC 


EED7 


CI 


2000 






POP 


BC 


EED8 


3EOD 


2010 


INPUT3 


LD 


A, 13 


EEDA 


D7 


2020 






RST 


16 


EEDE 


C9 


2030 
2031 


*L+ 




RET 








2032 


#** 










2034 


*** 








EEDC 


3E2E 


2040 


PUNKTE 


LD 


A, ". " 


EEDE 


D7 


2050 






RST 


16 


EEDF 


10FB 


2060 






DJNZ 


PUNKTE 


EEE1 


3EOD 


2070 






LD 


A, 13 


EEE3 


D7 


2080 






RST 


16 


EEE4 


C9 


2090 
2091 


*L+ 




RET 








2092 


*** 


LJCTIMIS 








2094 


■*** 








EEES 


3620 


2100 


TEILOE 


LD 


(HL)," " 


EEE7 


23 


2110 






INC 


HL 


EEES 


lOFB 


2120 






DJNZ 


TEILOE 


EEEA 


C9 


2130 
2131 


*L+ 




RET 








2132 


**# 


1 TCTTMC 








2134 


*** 








EEEB 


7E 


2140 


SUCTAB 


LD 


A, (HL) 


EEEC 


FEBO 


2150 






CP 


128 


EEEE 


CB 


2160 






RET 


Z 


EEEF 


B9 


2170 






CP 


C 


EEFO 


2007 


2180 






JR 


NZ.SUCTA1 



I rime: bPkanriip AriMrti ;'?!d 

uon der TaslaliiT (=mgeleser 

?, ; :r-i .'inweiirii?!- sol] inch! .::■ 



Dioso Routine; crlcdigt das alles. 
Eg handelt sich aber niciit urn einen 
Bildschirmeditor. Daher soli immer 
eine Korrekturabfrage nachgescho- 
ben warden. Aber dazu spater. 

Der CR soil nicht im Speicher ab- 



De 



Gj'lLih:I=:j 
:it fclqen- 



LD HL.Adresse 
LD RZeichenzahl 

CALL INPUT! 



Das Register HLenthalt die Adres- 
se des Speicherbereich.es, in dem 
der Eintrag abgespeichert werden 
soil. Das Register B enthalt die maxi- 
mal erwartete Zeichereahl. 

Es ist sinnvoll die Adresse (HL) vor 
Aufruf der Routine zu rerten. Dann 
addieren Sie bei Ende der Routine 
die maximale GroBe des Eintragszu 
dor yerelieten Adiesse, und schon 
zeigtHLauf denneuen.'Speicherbe- 

Alle Register gezogen 

Um nun Kommentaie und Fehler- 
bbngen" •; v-l.^i- Si^ -i--n emer. Plats 



DAT003 


DEFWPo 




DEFBL 






DEFM' 


"Lntr'T kor 


ekr? Ci/n) 


DEFE i; 






DEFB 13 






LD 


HL.DAT002 


CALL 


PRINT! 




CALL 


GET 




CP 






JR 


7, NICHT EOREEKT 



22 ■aisEHSij 
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EEF2 


23 


2190 


INC 


HL 


EEF3 


5E 


2200 


LD 


E, (HL) 


EEF4 


23 


2210 


INC 


HL 


EEF5 


36 


2220 


LD 


D, <HL> 


EEF6 


EB 


2230 


EX 


DE.HL 


EEF7 


Di 


2240 


POP 


DE 


EEF8 


E? 


2250 


JP 


(HL) 


EEF9 


23 


2260 SUCTA1 


INC 


HL 


EEFA 


23 


2270 


INC 


HL 


EEFB 


23 


22S0 


INC 


HL 


EEFC 


iSED 


2290 


JR 


SUCTAB 



Immerwenn eine Eingabe erfolg- 
te, lassen Sie eine solche Routine 
duichlaufen unci verzweigen entwe- 
dernach "NICHT KORREKT" oder 
Sie gehen zur nachsten Eingabe 

Aus diesem Grund empfahl ich 
eben, die Adresse auf dem Stack zu 
retten. Sobald die Eingabe falsch 
war, holen Sie die Adresse vom 
Stack, und starten diesen Eintrag 

Bei korrekter Eingabe addieren 
Sie eben nur die Eintragsbreite (wie 
oben bereits aufgefuhrt). 

Fur den Fall einer falschen Einga- 
be habe ich noch zwei kuize Roirti- 
nen angefertigt. 

Mnrkieren von Eingabefeldem 



Falscheingabe, wiede 

■ve.'.dtr.-] konnen. 

Der Aufruf erfolgt rait: 



Als weitere Voraussetzung sollten 
Sie die Bildschirmposition der Punk- 
te voiher bereits gesetzt haben. 

Nachdem Sie mit CALL PUNKTE 
die Routine haben durchlaufen las- 
sen, ist Ihr Eingabefeld wieder mil 
Punkten geloscht 

Feldmarkrerungen Ids then 

Es mufl bei einer Falscheingabe 
naturlich auch der Speicner wieder 
korrigiert werden. 

Das Unterprogramm TEILOE (Li- 
sting 8) ersetzt die durch B spezifi- 



zierte Anzahl Zeichen, an der Posi- 
tion in Register HL durch Blanks. 

Da die beiden vorgenannten Rou- 
tinen so einfach sind, erfolgt kerne 
weitere Erlauterung. 

Es karm natiidich a.uch sem, daB 
Sie dem Benuizer ein Menu einblen- 
den, und eine Auswahl erwarten. In 
diesem Fall muB Ihr Maschmftuoo 
de-Programm, genauso wie ein Ba- 
sic-Programm, nach bestimmlen 
Programmteilen verzweigen. 

Vergleich der Eingabe 

Dieser Rouiinevergleich der Ein- 
gabe (Listing 9) hat die Aufgabe, in 
einer Sprungtabelle nach einem 
Zeichen zu suchen, welches iden- 
tisch mit einer Eingabe ist. Wenn 
dieses Zeichen gefunden wurde, 
soil eine Adresse geladen und dt- 
rekt angesprungen werden. 

Wenn das Zeichen nichl auffind- 
bar ist, soil ein Return erfolgen, um 
eine Fehlenneldung drucken zu 
konnen. 

Auii die:;er: Ausfiihrungen haben 
Sie sicherhch geschlossen, daB eini- 
ge Bedingungen mit dieser Routine 
verkniipft sind: 



LD 


HL.TAB001 




LD 


C.Suchzeichen 
SUCTAB 




*Rucksprung nu 


r bei - Falsch! 





Das Doppelregister HL enfhalt 
beim Eirisptung die Basisadresse 
der Tabelle. Das eingegebene Zei- 
chen, welches gesucht wild, soli 
sich in Register C befinden. Denken 
Sie an den Rucksprung. Verzweigen 
Sie hier wieder an Ihre Ahfrage- 

Die Tabelle muB ebenfalls ein 
ganz gestimmtes Format haben: 



TABOOl DEFM "H" 


*L Suchzeichen 




DEFW Haup 


*Adresse dazu 




DEFM "E" 


*t Suchzeichen 




DEFW Einq c 


1 *Adiesse dazu 




DEFB 12S 


•Stopbyle 





■Zuerst kommt in der Tabelle ein zu 
vergleichendes Zeichen. Die dazu 
gehorige Adresse befindet sich da- 
hinter. Nach der letzten Adresse 
muB das Stopbyte (128) stehen. 

Am Anfang dieses Berichtes er- 
wahnt ich, daB ein Assembler, der 
Labels verarbeitet, fast unverzicht- 
bar ist, Sie haben Ihre Programmtci- 
le einfach mit "Haupt" oder "Ein- 
gab" benannt. Diese Labels setzen 
Sie in die Tabetlen und sclion geht 
ailes wie von selbst. 

Die Funktionsweise der Routine ist 
recht simpel. 

Sie holt sich immer das erste Zei- 
chen (Suchzeichen oder Ende), ver- 
gleicht es mil Ihrer Eingabe oder 
Ende. Bei Ende erfolgt ein Ruck- 
sprung. Bei falschem Zeichen wird 
der Zeiger HL um 3 erhdht, und die 
Routine neu gestartet. 

Bei Ubereinstimmung wird die 
Adresse in DE geladen. Diese 
Adresse wird duch Registertausch 
in HL gebracht. und die Rucksprung- 
adrease vom Stapel geworfen. Als 
AbschluB wird die Routine direkt 
gesfffungen. 

Wenn wir aus unserem Datenfeld 
Eintrage wieder herausholen wol- 
len, so hilft uns die'nachste Routine. 

Ausgobe von Dalenfeldem 

Der Programmteil »Ausgabe von 
Dnienfeldeni* (Liulbq 10) wird mit 
CALL PRINTS auigenifen. 

Beim Hinspriing:niiR das Register 
B die Anzahl der zu lesenden Zei- 
chen, und das Register HL die 
Adresse des Eintrags enthalten. 
Ebenfalls muB die Bildschirmposi- 
tion zu diesem Zeitpunkt bereits ge- 
setzt si " 




Am Ende vollfuhrt die Routine den 

r.olvv:;:idigen CR. 

Es ist damit auch klar, warum so- 
wohl der Spectrum, als auch meine 
Routmen ein Stringarray mit Blanks 
fallen. Sollte dies nicht der Fall sein, 
so wurde jedes nichi vollgeschrie- 
bene Feld beim Druck eine Fehler- 
meldung bringen. Das CHR$ (0) wa- 
re nicht zu ir.Tcrpretieren. 
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Bildschirm-Manipulation 

Wir haben bisher die verschie- 
densten Dinge auf den Screen ge- 
bracht, Nun auch noch Zahlen. 
Formatierte Zahlen 
(Assembierlisting 11) 

Die nachfolgende Routine lehnt 
sich an ein Vorbild im Spectrum- 
ROM an. Dort existiert eine Routine 
(#1A23), die Zeilenmrmmem in De- 
cimal wandelt und mit fiihrenden 
Space, oder auchnicht, auf den Bild- 
schirm bringt. 

Meine Anderung bringt nun noch 
die folgenden Erweiterungen: 

1. Wahlweissr Ausdiuck von 3- Oder 

Bstol I igen Zahlen. 
'i. fcls worricri Nuiian vorgestellt 

Damit konnen Sie ihre Zahlen for- 
matieren. Es tiandelt sich hier um 
INTeger Zahlen. Floatingpointzah- 
len folgen im Kalkulatorabschnitt. 

Der Einsprung folgt mit DE auf die 
Hexzahlzeigend. Bei osteogen Zah- 
len starten Sie mit CALL DEZIM2. 
5stellige Zahlen werden mit CALL 
DEZIMA aufgerufen. 

Diese Dezimalroutine zieht bei je- 
dem Durchgang von der Zahl die je- 
weiligen Dezimalstufen ab. Wenn 
die Zahl kleiner isi wird eine "0" 
ausgegeben. Ansonsten wird die 
Znhl yedmckt. 

Ich benutze diese Routine zurn 
Ausdruck von Dateinummem, Mit- 
gliedsnummern oder Artikelnum- 



Dei Ted ab DEZIMi entspricht fesr 
vollstandig dern ROM-Vorbild. Er- 
weitert wurde dies allerdings um 
den Tail —10000. Der Spectrum 
braucht dies nicht, da Zeilennum- 



mern groEer 9999 nicht verarbeitet 

Mit ein biBchen Phantasie laflt 
sich dieses Unterprogramrn noch 
verkurzen. Das CR muB natiirlich 
auch in diesern Fall angehangen 
werden. 

Wir kommen nun zu 2 Bildschirm- 
routinen. Urspriinglich wollte ich 
solche nicht mit auffuhren, denn in 
fast jedem Buch finden Sie diese. 
Aber meine sollten etwas bescnde- 
res sein. 
PLOT und DRAW 
(Assernblerlistings 12-15} 

Diese vier Routinen smd ate PLOT- 
oder DRAW-Routinen zu benutzen. 

Die Pixeladressen werden im 
Spectrum, anders als die PRINT-Po- 
sitionen, im Originalzustand in Ma- 
scriinensprache benutzt. 

Das heifit, gezahlt wird TOn oben 
(173) nach unten (0), und von links (0) 
nach rechts (25S), 

Sie ubergeben beim Anfnif in Re- 
gister B die Anzahl der zu PLOTten- 
den Punkte. Das Doppelregister HL 
emhELit die PLOT-Position. 

Irmerhalb von HL enthalt L die X-, 
und H die Y-Koordinate. 

Danach rufen sie die Routine auf, 
die Ihre gewiinschte Richtung aus- 
fiihrt. Diese Routine 1st nur geringfu- 
gig schneiler als Basic. 

Bei der nachsten Routine handelt 
es sich um eine umgeschriebene. In 
dem Buch oMaschinencode-Routi- 
i nen fur den ZX Spectrum." von Hard- 
mann/Hewson. land ich eine inter- 
essante SCROLL-Routine, die ich 
hier in einer abgeanderten Form 
vorstella 
SCROLLen 
(Assemblerhsting 16) 

Der Effekt des SCROLLens sieht 
durch ein unter-den-Kopf scrollen 
natLlrlich besser aus. 



Am Anfang wird uberpriift , ob der 
Druckerangeschlossenist. Wennja. 
wird zuriickgesprungen. Wenn 
nein, wird das Scrollen ausgefuhrt. 

Am SchluB der Routine wrrd auch 
die unterste Position wieder gesetzt, 
damit an dieser Sielle der nachste 
Eintrag erfolgen kann. 

Die Funkiionsweise ist eigentlich 
ganz simpel. Es wird jeweils das 8 Pi- 
xel liefer hegende Byte in die ak- 
tuelle Adresse geladen. Dies ge- 
schieht 32 mai pro Zeile, 8 mal pro 
Zeichen, und 21 mal pro Zeile. Der 
Aufruf geschieht mit CALL SCROLL, 
ansonsten sind keine Bedingungen 
di.-ir. geknupft. 

Das Priifen auf Druckbetrieb ha- 
be ich aus einem ganz bestimmten 
Grund mit eingibaut Man kann 






fur 




Bask- Li sting einer 
Sortier- 
Routine, die ab 



Dmckeru: : .v.-' ... :^:: ; ;. tic moron. 
Bei Druckbetneb funktioniert das 
Formatieren natiirlich nicht, Des- 
halb wird dann zuriickgesprungen. 
Das aufrufonde Programm testet 
dann nochmals und verzweigt kurz- 
fristig. Im Druckbetrieb muB die An- 
zahl der Ausgaben ja noch mitge- 
zahlt werden, da vor der Perforation 
em FORM FEED erfolgen soil. 

Basic konfra Code 

So, und nun kommt ein ganz schb- 
nes Stuck Arbeit: Ein Sort, aber ein 
besonderer. Es handelt sich um eine 
vom Basic in Maschinencode umge- 
schriebene Routine. Zuerst stelle ich 
Ihnen die Basic-Ursprungsroutine 
vor, und dann schauen Sie sich die 
zwar etwas langsame, aber leicht zu 
verstehende Maschinencode-Rou- 
tfne an. Selbst die Variablen habe 
ich grbBtenteils mit ihren Namen be- 
lassen. 

Sehen Sie diese Routine nicht als 
"NON PLUS ULTRA", lassen Sie sich 
daran die Einfachheit von Maschi- 
•loncodG zeigen. 
Sortieien In Bask 
(Basiclisting 1) 

Bevor Sie diese Routine ansprin- 
gen kdnnen, miissen Sie in die Varia- 
ble N die tatsachliche Anzahl der zu 
sortierenden Eintrage eingeben. 
Ebenfalls sollten Sie mit X und Y die 
SLICE-Werte vergeben. 

Wenn Sie A$0 nur nach A${i,10 TO 
IS) sortieren wollen, so iiberlragen 
Sie die 10 in X, und die 15 in Y. 

Dieses Unterprogramrn ver- 
gleicht nun den ersten Eintrag mit 
dem ersten Eintrag iiber der Halfte. 
1st der.imtere Eintrag kleiner oder 
gleich, so geschieht nichts. Sollte er 
aber groBer sein, so werden diebei- 
den ausgetauscht. Beide Zeiger 
werden um eins erhoht, und dann 



Kurs 




jSSfe 25 



Kurs 




Km? 




werden die beiden sweiten vergli- 

Das Verfahren lauft durch, bis der 
unteie Zeiger die Halfte erreicht. In 
diesem Fall wild die Halfte wieder- 
uin halbiert. Wenn dabei der Wert 
herauskommt, ist die Routine zu 
Ende 

Ich habe die Zeilennummern mit 
einem vorgestellten B aufgeschrie- 
ben, datnit keiner versucht, dieses 
Listing in den Assembler einzutip- 
pen. Im Basic muB natiirhch auch 
das B entfemt werden. 
Was rnacht nun unser Maschinen- 
code-Sort? 

Masdiiiwntode-SORT 

(Assemblerlisting 17) 
Genau dasselbe! 
Vor Einsprung mit CALL SORT, 



veiyebcn Sie in TATANZ ebenfalls 
die -atsMcnliche Anzahi zu sortioren- 
der Eintrage Die beiden SLICER- 
Werte benennen Sie rmt VOW irnd 
BIS. Da ich davon ausgehe, dafi Sie. 
den Maschinencode-Sort im glei- 
chen Programm benutzen wie die 
DIM-Routine (Nr. 1), brauchen Sie 
die Lange eines Eintrags nicht mehr 
zh vergeben. Diesen Wert entneh- 
me ici-j sue dieser Routine, 

Die tatsachliche Anzahl ist hier 
wichtiger als im Basic-Sort. Denn 
iiber das tiefer sortieren der Blanks 
hinaus, kann uns hier passieren, dafi 
unser letztes File mit den Stopbytes 
(128) untergebuttert wird. In der Re- 
gel sotlte das ja nicht geschehen, 
denn wei hai ols '[elefonnurnmc-T 
Oder ahnhch einen TOKEN; aber 
man kann ja nie wissen! 



Such- und Anderbetrieb i 
Programme ganz schon verlangem. 
Aus diesem Grund lassen wii das. 

Ich mochte an dieser Stelle noch- 
mals daranfhin weisen, daS es bei- 
leibe schnellere und kiirzere Sorts 
auf dem Markt gibt. Als Beispiel sei 
hier das "Beta Basic" genannt. 

Bei schnelleren Programmen 
werden unter anderem die Indexre- 
gister als Zeiger benutzt. Es kann 
auch der Kalkulator benutzt wer- 

Um die Ubertragung von Basic in 
Maschinencode zeigen zu konnen, 
habe ich die Zeilennummem von 
ZIO bis Z18D mit in den Maschinen- 
code-Sort genommen. 



Arbeit im Untergrund 

Der Kalkulator ist ein machtiges 



Es gibt dem Anwender die ganze 
Gewalt des Rechnens und Kalkulie- 
rens. Dariiber hinaus sind auch 
samtliche Siringoperationen mit ihm 
ausfurirbar. Der Kalkulator wird mit 
dem Befehl 

RST40 
aufgerufen. Diesem Befehl folgen 
einzelne Bytes, die jeweiiseino gan- 
ze Operation einieiten. Der Kalkula- 
tor beginnt bei # 335R Die Obcodes 
der einzelnen Bytes beginnen bei 
#32D7. Ebenfalls konnen 5 ver- 
schiedene Konstanten (#32B5) je- 
weils mit einem Byte auf den Kalku- 
latorstack gebracht werden. 

Eme Operation wird mit den auf 
dem Kalkulator -Stack beilndlid-ion 
Ausdrucken durchgefiihrt. Ein Aus- 



druck besteht aus 5 Bytes. Diese lie- 
gen iewoils 7 wise her: den Systemva- 
riablen STKBOT und STKEND Die- 
se 5 Bytes konnen Stringpara meter 
enthalten 



BytaL 


far ein 


B String von einem 




Array oder Teilstring 








Byte3 


Lowbyto 
Strings 


der Startadresse des 


Byte3 


Hlghbyte 








dej: Lange des Strings 


Byte 5 


Highbyte 




oder auch eine 


INTegerzahl: 






i.' lxmLILv 



Byte 3: Lowbi ■'■■■■■ ■■■■ 

Byte 4: Highbyte 

Ebenso konnen Floatingpoint 
zahlen enthalten sein: 

Byle 1: Vorzeichen und Exponent 
Byle 2: Mantissenbyte 



Byte 3; Mantissenbyte 
Byte 4; Mantissenbyte 
Byte 5; Mantissenbyte 

Sie sagen nun sicherlich, in dieser 
Form gebe ich doch keine Zahlen 

Das ist richtig: Wenn Sie eine 
Basic-Zeile in das Listing tiberge- 
ben, ffihrt der Spectrum einen Teil- 
RUN ftir diese Zeile durch. Ein Er- 
gebnis komml dabei zwar nicht zu- 
stande, aber die Syntax wird tiber- 
prufl. Wenn nun in der Zeile eine 
Zahl dargestellt wird, besorgt sich 
das Betriebssystem 6 Bytes Platz; 
genau hinter Ihrer Zahl, die ja nur im 
ASCII-Code da stent. In das 1. Byte 
des Platzes setzt der Spectrum den 
Zahlenmerker (14) hin. Die S Bytes 
dahinter werden von einer Routine 
(#2C9B)umgewandell.Entwederin 
das INTeger- oder Floatingpointfor- 
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3631 


*L + 










5632 


*** 










3633 


*** Kl 










5634 


##* LISTII 


18 






5635 


**# 






3C3D 




5640 


CHADD 


EQU 


23643 


5C65 




5630 


STKEND 


EGU 


23653 


F1D3 


D5 


5660 


WANDEL 


PUSH 


DE 


F1D4 


223D5C 


3670 




LD 


( CHADD ),HL 


F1D7 


7E 


5680 




LD 


A, (HL) 


F1D8 


CD9B2C 


5690 




CALL 


#2C9B 


F1DB 


2A655C 


3700 




LD 


HL, (STKEND) 


FIDE 


010300 


3710 




LD 


BC,5 


F1E1 


AF 


3720 




XOR 


A 


F1E2 


ED42 


5730 




SBC 


HL.BC 


F1E4 


22655C 


5740 




LD 


(STKEND) ,HL 


FIE7 


Dl 


5750 




POP 


DE 


F1E8 


EDBO 


5760 




LDIR 




F1EA 


C9 


5770 
3772 
5773 
5774 


*#* 
*** Bl 

*** 


RET 




OOOF 




5780 


ADD 


EQU 


HOF 


0003 




5790 


SUB 


EQU 


(K>3 


0004 




5800 


MUL 


EQU 


#04 


OOOS 




3810 


DIV 


EQU 


ma 


00A4 




5B20 


K0NS10 


EQU 


#A4 


F1EB 


312E3233 


3830 


ZAHL1 


DEFM 


"1.2343" 


F1F1 


OD 


3840 




DEFB 


13 


F1F2 


322E3334 


3850 


ZAHL2 


DEFM 


"Z.3456* 


FIF8 


OD 


5860 




DEFB 


13 


F1F9 




3970 


FREI1 


DEFS 


5 


FIFE 




3880 


FRET2 


DEFS 


3 


F203 


CD6B0D 


3890 


EINSPR 


CALL 


HOD6B 


F206 


3E02 


5900 




LD 


A, 2 


F208 


CDOH6 


S910 




CALL 


H1601 


F20B 


01211B 


3920 




LD 


BC,#1S21 


F20E 


CDD90D 


5930 




CALL 


HODD9 


F211 


21EBF1 


5940 




LD 


HL.ZAHL1 


F214 


I1F9F1 


5950 




LD 


DE,FREI1 


F217 


CDD3F1 


3960 




CALL 


WANDEL 


F21A 


21F2F1 


3970 




LD 


HL.ZAHL2 


F21D 


11FEF1 


5980 




LD 


DE.FREI2 


F220 


CDD3F1 


3990 




CALL 


UANDEL 


F223 


21F9F1 


6000 




LD 


HL.FREIl 


F226 


EDSB655C 


6010 




LD 


DE, (STKEND) 


F22A 


010500 


6020 




LD 


BC,5 


F22D 


EDBO 


6030 




LDIR 




F22F 


21FEF1 


6040 




LD 


HL.FREI2 


F232 


010300 


6030 




LD 


BC,3 


F233 


EDBO 


6060 




LDIR 




F237 


EDS36S3C 


6070 




LD 


(STKEND) ,DE 



Wenn jetzt ein Listing ausgegeben 
wird, bringt der Spectrum Zcichen 
fur Zeichen auf den Bildschirm. 
Ttifft er dabei auf die 14, so iiber- 
springt er diese und die nachfolgen- 
den 5 Bytes. 
Genial nic'ht? 

Die umgewandeiten Bytes benutzt 
er aber jetzt nur noch fur alle Opera- 
tionen. 

Eine Routine, die unsere Zahlen 
urnwandelt, folgt nun, 
Kalkulator- Routine 1 
(Assemblerlisling IB) 

Das jetzt folgende Unterpro- 
gramm wurde extra so geschrie- 
ben, daB Sie von den Spectrum- 
Variablen nnabhangig sind, und 
statt dessen Ihre eigenen Zahlen be- 
nutzen kdnnen. Sie miissen nur fot- 
(jcndos beachten: 

1. Hallen Sie 2 Speieherbereiche mit 

3. Schreiben Sie hinter dje umzuwandeln- 
den Zeilen grundsalzlich ein CR (13). 
srfolgt mit Register DE 



aufei 



reien Platz zeigen 
;iHLaufdieumzi 



mdeln- 



de Zahl zeigend. 

Diese Routine iibersetzt Ihre Zahl 
und legt das Ergebnis in den freien 
Bereich. Den Kalkulator-Stack setzt 
sie wieder auf normal. 

Da eine Operation nur mit 2 Eintra- 
gen ablauft, brauchen wir auch nur 
2 Zwischenspeicher. Bei unseren 
kunftigen Ausrechnungen belassen 
wirdasjeweiligeZwischenergebnis 
auf dem Stack, und schieben nur 
den nachsten Operator nach. 

Schauen Sie sich frn Zusanrmen- 
hang mit der Routine Kl auch das 
Beispiel Bl an. Das Byte ADD (#OF) 
ist einer dieser Opcodes. Die bei- 
den Zahlen auf dem Stack werden 
addiert. Das Byte #38 signalisiert 
dem Kalkulator das Ends. Wenn Sie 
nun das Byte ADD duich #03erset- 
zen werden die beiden Zahlen sub- 
trahiert. Bei #04 wird multipliziert 
und bei #05 dividiert. Lassen Sie 
das Beispiel mit # 05 rnal laufen und 
schieben zwischen diesem und dem 
Ende noch ein #A4und #04ein.Ihr 
Ergebnis wird jetzt noch mit der 
Kor,:--nriton 10 multipliziert. 
tlberzeugt? 

Der CALL #2DE3bnngtiibrigens 
eine Floatingpointzahl auf dem 
Slack aji ■Jen B.Jdschirm. 

Die Anzahl der Opcodes ist gro- 
Ber als die mit dem Interface 1 dabei 
gekommenen Hookcodes. Aus die- 
sem Grund fiige ich eine tfber- 
sicht aller Codes in der Anlage bei. 
Sie konnen sich diese aus dem Heft 
reiBen oder besser kopieren und 
beim Arbeiten mit dem Kalkulator 
neben sich legen. 



28 Hi 



Kurs 



Bis jetzt haben wir nur mit Zahlen 
gearbeitei. Nun kommen Strings. 



(Assemblerlisting 19) 

Start mit im Speicher stehenden 
Variablen, arbeiten wir jetzt mtt 
Strings. Wir stellen tins vor, irgend- 
wo in unseren Datenfeldem stehen 
zu vergleichende Strings. 

Nachdem was wir im ersten Kal- 
kulator-Kapitel gehort haben, mtiB- 
ten wir auf den Stack deren Daten 
legen. Diese Arbeit nimmt uns eine 
Routine bei # 2AB6 ab. Sie legt die 
Daten nach folgendem Format auf 
den Kalkulator-Stack; 

Register A: 

:;;:.;.i!!:n::- BC: Lange des Strings 

Register DE: Staitadiesse des Strings 

Nachdem wir mil dieser Routine 
die Daten der beiden Strings auf 
den Stack golcgt haben, springen 



Register B den Opcode enthalten. 

Wenn das Ergebnis wahr ist, legt 
die Routine eine 1 als leistes Ergeb- 
nis auf den Stack. Bei unwahr wird 
eine abgelegt. Mit unserer alien 
FP-Druckroutine an #2DE3 holen 
wir das Ergebnis auf den Screen. 

Unser Programm fiifirt nun folgen- 
den Vergleich durch: 
STR_1 < STR_2 Ergebnis = 1 

Wenn Sie in STR_1 das A duich 
ein C ersetzen wurden, kame eine 
ai.i; Ergebnis. Vorsuchen Sie es ru- 
hig. Der Aufruf erfolgt mit CALL 
STRVER. 

Diese Routine ist schon rnehr ein 
Eeispiel, da die ganzen Bildschirm- 
eroffnungsriten mit untergebracht 

Hr.l-cn Si::: es -ijsprobiert? 

Der Vergleich wtirde der gleiche 
sein, aber das Ergebnis ist diesmal 
anders. 

Die fiir diese Kalkulatoxroutinen 
:-:i.:ii: : :s*i"ren Opcodes heiBen; 
#09-#OE 
#11- #16 

Wenn Sie mil anderen Opcodes 
einspringen erzielen Sie kein »ge- 
sundesn Ergebnis. Genauso verhalt 
es sich auch mil den anderen Opco- 
des beim Einsprung in den Kalkula- 



Knlkulaior-Rouline 3 

(Assemblerlisting 20) 

Das biBchen Arbeit, das wir eben 
in der Routine noch investiert haben, 
kann uns naturlich wieder eine 
ROM-Routine abnehmen. Diese 
liegt an Adiesse #24FB und kann 
irnseren Ausdruck selbstandig be- 



F23B 


EF 


6080 






RST 


#28 


F23C 


OF 


6090 
£191 
6192 






DEFB 


ADD 






6193 


*** 


K2 








6199 


##* 








F242 


41424344 


6200 


STR 


.1 


DEFM 


■ABCDEF" 


F248 


42434443 


6210 


STR„ 


.2 


DEFM 


"BCDEFG- 


F24E 


CD6B0D 


6220 


STRVER 


CALL 


#0D6B 


F251 


3E02 


6230 






LD 


A, 2 


F2S3 


CD0116 


6240 






CALL 


H1601 


F236 


012118 


6230 






LD 


BC,H1821 


F2S9 


CDD90D 


6260 






CALL 


H0DD9 


F25C 


3EOO 


6270 






LD 


A.O 


F23E 


1142F2 


6280 






LD 


DE,STR_1 


F261 


010600 


6290 






LD 


BC,6 


F264 


CDB62A 


6300 






CALL 


W2AB6 


F267 


3EO0 


6310 






LD 


A,0 


F269 


1148F2 


6320 






LD 


DE,STR_Z 


F26C 


0106OO 


6330 






LD 


BC,6 


F26F 


CDB62A 


6340 






CALL 


H2AB6 


F272 


0613 


6330 






LD 


B„#i5 


F274 


CD3B35 


6360 






CALL 


#353B 


F277 


CDE32D 


6370 






CALL 


#2DE3 


F27A 


C9 


6380 
6381 
6382 


*** 




RET 








6383 


*** 


K3 








6383 


*** 








F27B 


41243E42 


6390 


OPE_ 


1 


DEFM 


"A»>B*" 


F280 


OD 


6400 






DEFB 


13 


F281 


CD6B0D 


6410 


OPERAT 


CALL 


H0D6B 


F284 


3E02 


6420 






LD 


A, 2 


F286 


CD0116 


6430 






CALL 


#1601 


F2S9 


012118 


6440 






LD 


BC,#1821 


F28C 


CDD90D 


6430 






CALL 


HODD9 


F2BF 


217BFP 


64 60 






LD 


HL,OPE_l 


F292 


229B9C 


6470 






LD 


(CHADD) ,HL 


F293 


CDFB24 


6480 






CALL 


K24FB 


F29S 


CDE32D 


6490 






CALL 


M2DE3 


F29B 


C9 


6500 
6501 
6502 


-SL + 




RET 








6503 


*#* 


K4 

|_ J CTIkIC 








6503 


*** 








F29C 


41243B41 


6510 


STR 11 


DEFM 


"A*=A*+BS" 


F2A4 


OD 


6520 






DEFB 


13 


F2A5 


CD6B0D 


6530 


KOM 




CALL 


#OD6B 


F2A8 


3E02 


6540 






LD 


A, 2 



mm, 29 
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rechnen. Eeim Riicksprung liegt 


F2AA 


CD0116 


6550 




CALL tt 1601 


wieder eine fiir falsch. auf dem 


F2AD 


012116 


6560 




LD BC,ttI82I 


Stack, oder eine 1 fur richtig. 

Bevor wir nun noch ko'mplexe 


F2B0 


CDD90D 


6570 




CALL ttODD9 


Operationen diirchfiihren, sollten 


F2B3 


219CF2 


65S0 




LD HL.STRI1 


wirunseinmal ilber die Anwendung 


FZB6 


Z25D5C 


6590 




LD (CHADD) ,HL 


dieser Kalkulationsmoglichkeiten in 


F2B9 


CD1F1C 


66UU 




CALL ttlCIF 


unseren Programmen Gedanken 
machen, 
Wir wolien eine Datei anlegen, in 


F2BC 


E7 


6610 




RST H20 


F2BD 


CD561C 


6620 




CALL H1C56 


derzumBeispiel unsure ]inan;™.;!len 


F2C0 


011400 


6630 




LD BC,20 


i\'' i: ■ -i . i .i : 'i,n ■.■■,' ien. Wirlegen 


F2C3 


CD6A1E 


6640 




CALL M1E6A 


ein DIM-Feld (Routine 1) nach fol- 
'lo^'idi'rn Muster an: 


F2C6 


C9 


6650 




RET 


Text: 10 Zeichen 


F23D 


38 


6100 




DEFB MSB 


Eetrag: 10 Zeichen = 999999.99 


F23E 


CDE32D 


6110 




CALL »2DE3 


+ CR 
Unser DIM macht diesen Plate 


F241 


C9 


6120 




RET 


frei, aber die Aufgabe. an den letz- 






6130 *** 
6140 K V * *- 


?GAENZUNB ZU Bl 


ten Plate ein CR zu seteen. bieibt uns 
iiberlassen. Das allein reicht aber 










nicht. Dieses Feld muS mit Nuilen 






61 50 #** 




ausgefullt werden; denn Zahlen mil 






6160 *** 6090 DEFB DIV 


Blank gibtes nicht. 






6170 *** 6092 DEFB K0NS10 


Wir holen mit INPUT unsere Ein- 






6180 *#* 6094 DEFB MUL 


gaben rein, und stellen sie vor nnser 
Carriage Return. 






6190 #** 




Sobald wir die Reihe addieren 












wolien, holen wir jede Zahl auf den 












353B String <. 


53 367A NachgebauterDJNZBerehl 

54 3306 < 








32 










359C Addition von Strings. 


S3 34F9 > 










Die neuen Parameter sind 






Fan enthall das nachste By- 






57 3733 Hole Agrumeni 










35DE VAL$ 


58 3214 Ploatingpointzahl kappen 






235. Die ent- 


23 


34BC USRJ 


und runden 




spiechende 




26 


3643 Der aktuelle Kanal wild ei- 


58 33A2 Der Calculator im 




bei wahr lib 






offnet, ein Zeichen geholt. 


Calculator (FP-Calc-3) 






rirdnurdas 






60 2D4F INTeger in Floatingpc-int- 






g-eschluckL 




Parameter dieses Eintrags 


zahl wandeln 




Die letzten b 


eiden Werte 




auf dera Stack gespeicheit. 


61 3297 zuriick auf Stack 




Buschen. 




27 


346E Der letae Eintrag wild 


62 3449 Entwicklung der Polynome 


Z 33fl] 


Dei lelzle Wert wild 






63 341B auf Stack 


3 30QF 


geloscht. 




28 


3663 CODE. Stringparametei 


64 342D Register in MEM Bereich 


(such FP). 




29 
30 


3SDE VAL 

3674 LEN. Stringpaiameter vor- 
her auf Stack. 


65 340F MEM zuriick in Register 

Die Konstanten 
160 341B auf Stack legen 




(auchFP). 




5 31AI 


Oiviijoiia.-cii 


ine (auchFP). 


31 


37B5 SINus 


161 341B 1 auf Stack legen 


6 3851 


Hoch 2 C2). 




33 




162 341B 0.5 auf Stack legen 




ODER. Es lie 


gen 2 Paraine- 


33 


37DA TANgens 


163 341B PI/2 auf Stack legen 




lei auf dem 


lack. Bei X OR 


34 


3833 ASN (Atvussmus) 


164 34IB 10 auf Stack legen 




T ergibt das 


X,wennY=0; 




3843 ACS (Arcuaccsinus] 


Speichem Ton Stackinhalten in 




sonst 1st X= 






37E2 ATM (Arcustangens) 


MEMO — MEM5 


8 3524 


Logisch UND X AND Y 


37 


3713 LN (logarithrnus) 


192 342D l.Zah! oder Parametersatz 




ergibt X, we 


aloft 


38 


36C4 EXP (E hoch X) 


- 3 Bytes 




sonst is! X= 




38 


36AF INTegei 


133 342D 2. dto. 




ungleich. 




40 


384A SQR(WurzeI) 


194 342D 3. dto. 




kleiner als. 






3492 SGN (Sign = Vorzeichen) 


19S 342D 4. dto. 


11 353B 




ingleich. 


43 


346A AESolut 


196 342D 5. dto. 


12 353B 


nicht gioBer 




43 


34AC PEEK. INTegerzahl ist auf 


197 342D 6. dto. 


13 3S3B 


nicht kleinei 








Laden von Parametem oder Zahlen aus 






ingleich. 




34A5 IN. INTegenahl ist auf 


MEMO — MEM5 in Stack 


IS 3014 




tine (auchFP). 




Stack. 


234 340F 1. Zahl Oder Parametersatz 


13 3S2E 


String AND Nummer. A$ 


45 


34B3 USR (Aufmf) 


= 5 Bytes 




AND X ergibt A$, wenn 


46 


36 IF STR$ 


223 340F 2. dto. 




Xoftsons 


wirdAEeir. 


47 


35C9 CHR$ 






Nullstring. 




48 


3501 NOT 




IT 353B 








33C0 Vetdoppeln 




13 353B 








36A0 N MOD M-Division 




19 353B 






51 






30 333B 


String >. 




53 


33C6 Parameter aul Stack 


Tgbelle mm Absdinitf nKolkulotortt 



30 
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Stack und addieren, Der Reihe 

1. siste Zahl holen 



8. nSchste Zahl holen 

9. umwandeln 

10. auf Stack 

11. Sprang nach 7. 

Zwischen jeder Operation prufen 
wn den Anfang unseres Files (1. Zei- 
chen vom Text) auf Blank, wenn ja 
wird dieser Eintrag ubersprungen. 

Gepruft muB naturlich auch das 
Ende der Datei werden. Werm ja, 
Ends mit Ausgabe des Gesamter- 
gebnisses. 

Bei veranderlichen Zahlen, sollten 
Sie nur mit dem 5-Byte-FP-Format ar- 



latorkasten soil uns in die Lage ver- 
setzen, gauze Operationen mit ei- 
nem Befehl ausfiihren zu lassen, 
Knlkulcior-Routine 4 

(Assemblerlisting 21) 

Diese Routine, die Sie mit CALL 
KOM starteo, fiihrt eine Operation 
eines Basic-Textes durch. Bevor Sie 
diese tauferi lassen, sollten Sie 
schon die Variabien A$ und BS defi- 
nieren. 

Nach den iiblichen Bildschirmer- 
dffnungen wird die Syslemvhnable 
CHADD auf den Beginn der Opera- 
tion geselzt. Der CALL #1C1F 
springt direkt in die Variablenbe- 
stimmung irn ROM. Wir wissen zu 
diesem ZoiTpunkt, daB es sich urn ei- 
ne LET-Zeile handelt, daher sprin- 

AnschlieBend wrrd mit RST #20 
das nachste Zeicrien einueladoo (;ri 
diesem Fall das » = ») und mit diesem 
in die Zuweisungsroutine an #1CS6 
gesprungen. 

Sie sollten im Basic vor dem Start 
eine Zeile 20 kreieren, 
20 STOP 



da wir in diese Zeile mit dem Call 
# 1E66A hupfen. Der Grund hierfur 
liegt in dem veranderten CHADD- 
Zeiger. Wiirde die Routine mit RET 
abgeschlossen. so flatten Sie eine 
Faille: meld ting vor Augen, 

An der Adresse # 1E6A finden Sie 
iibrigens die GOTO Ausfiihiung. 

An dieser Stelle wollen wir einmal 
nut dem Kalkulator stoppen. Sie soll- 
ten die in diesem Kapitel aufgefuhr- 
ten Routinen als kleine, eigenstandi- 
ge Programme seiien (mit Ausnah- 
me Routine Kl, welche Ihre Zahlen 
aufbereitet). 

Diese Beispiele kdnnen sehr auf- 
schluBreich sein, und Ihnen viele 
Anregungen geben. Experimentie- 
ren Sie mit den Kalkulator Opcodes, 
und stellen Sie die verschiedenen 
Ergebnisse gegeniiber. Die Routi- 
nen K2 bis K4, und das Beispiel Bl 
brauchen nicht in das Assembler- 
File, welches in Hirer Programme 
implementiert werden kann, aufge- 
nommen zu werden. 

Dafur gehoren noch die folgen- 
den. l'ioutiiion doi'l hinein. 



Zahlenspiele, 
Laden und Speichern 

(Assemblerlisting 22) 

Erinnern Sie sich noch an die Rou- 
tine, welche die HEX-DEZ-Wand- 
lung vornahm, und das Eigebnis in 
Dfizimsl ausgab? 

Ein Gegenstiick stellt das folgen- 
de Unterprogramm dar, Es holt eine 
3- oder 3steUige Dezunalzahl von 
der Tastatur und legt das Ergebnis 
in HEX ab Emen groBen Unler- 
schied gibt es dennoch. Bei der De- 

Sstell.g- : : .-::..-: BeiderSin- 
gaberoutme sind bis zu 5stellige 



Zahl erfolgt mit CALL MULTIP, rmt 

CALL ZUI0O kann erne 3stell:ae Zahl 
iibergeben werden. Das Eroebnis 
dieser Eingabe Ileal bei RETurn in 
dem Speicherbereich MULT2. Be- 
vor Sie allerdings in diese Routine 
einspringen, miissen Sie, wie fast 
iiberall. die Bildschirmposition be- 
stimmen, denn die Ausgabe wird 
nati.irlich auch gosteuert, 

An dieser Stelle sei nochmals be- 
merkt, daB es sich hierbei auch 
nicht um einen Bildschirmeditor 
handelt. Die Fehlerabfrage muB 
auch hier von Ihnen iibernommen 
werden. Eine lehierhafte Eingabe 
wird halt neu geslartel. 

Nachdem Sie das Ergebnis fur Ih- 
re Bearbeitung aus MULT2 entnom- 



men haben, sollten Sie diese 2 Bytes 
auf stellen, da sons! bei einem wei- 
teren Aufruf immer dazuaddiert 
wtirde. 

Die Arbeitsweise wurde hier 
ebenfalls recht simpel gehalten. 
Der jeweilige Faktor wird in den 
Zwischenspeichei MULT geladen. 
Nachdem dies erledigt ist, wird eine 
Zahl von der Tastatur geholt. Bei CR 
wird zuriickgesprungen. Ansonsten 
wandeln wir mit AND 15 die ASCII-. 
Zahl in die Dezimalzahl und prufen 
auf 0. Bei einer vorgestellten sprin- 
gen wir zum nachsten Faktor. 

Bei einer Zah! wird diese beim Un- 
terprogramm MULTI mit dem Faktor 
multipliziert und gespeichert. Dann 
ko.-nm: d;r nachste Faktor. 

Die M -jitipliksrloti routine ist nichts 
anderes als eine Addition mit der 
Haufigkeit Ihrer eingegebenen Zif- 

Diese Routine laBt sich auch kiir- 
zer schreiben, ist dann aber nicht 
mehr so einfach zu erlautem, 

Der Faktorspeicher MULT und 
der Ziffemspeicher MULTI werden 
am Ende geldscht. Der Ergebnis- 
speicher MULT2 muB, wie bereits 
erwahnt, von Ihnen geloscht wer- 

L0AD und SAVE 

(Assemblerlistings 23-26) 

Mit diesen Unterprogrammen 
steht Ihnen ein Satz Lade- und Spei- 

cherroutinen zur Verftigung, Aufge- 
rufen wcrderi die kg '[telle mit demie- 
weiligen Namen: 



LOAD 

SAVE : Speichei kopHos 

LOAD_H 

SAV£_H 

Bevor Sie eine der Routinen an- 
springen, sollten Sie erst folgende 
We Me vergeben: 

PLACE: HiKila-ivusse deszj U- 



LENGTH: Anzahl der Bytes 

HEADER: Startadresse des 

17-Byte-Headers 

Der Bereich des Headers wird 
folgt belegt: 



oi: 



Typ 



02—11 Name 

12/13: LSnga 

14/15; Startadresse 

16/17: Programmlange 

Diese Belegung muB von Ihnen 
vorgenommen werden. Bei Laden 
oder Speichern mit Kopf, fuhren die 
beiden entsprechenden Routinen 
erne "PAUSE 200. zwischen HEA- 
DER und Daten aus. 

Die ROM-Rouiinen bendtigen ei- 
ne Spezifikation vom HEADER. 
Wenn ein HEADER bearbeiiet wild, 
muB das Register Aeine enthalten. 
Sollte es sich um einen Datensatz 
handefn, so steht im Akkumulator 
der Wert 255. 

Wir wollen nun diese Routinen in 
der Praxis erproben, Ich versuche 
Ihnen einige Hinweise dazu zu ge- 
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EA60 




1 

6651 
6652 


*L + 


ORG 


60000 






6653 


**# LISTI 


22 






6654 


### 






F2C7 


0000 


6660 


MULT 


DEFU 





F2C9 


00 


6670 


MULT1 


DEFB 





F2CA 


OOOO 


6680 


MULT2 


DEFU 





F2CC 


211027 


6690 


MULTIP 


LD 


HL, 1O000 


F2CF 


22C7F2 


6700 




LD 


<MULT) ,HL 


F2D2 


CD91F.E 


6710 




CALL 


GET 


F2D5 


FEOD 


6720 




CP 


13 


F2D7 


C8 


6730 




RET 


Z 


F2D8 


CD63F3 


6740 




CALL 


MULT IS 


F2DB 


2S09 


6750 




JR 


Z,2U1000 


FZDD 


32C9F2 


6760 




LD 


CMULT1) ,A 


F2E0 


CD36F3 


6770 




CALL 


MULT I 


F2E3 


22CAF2 


6780 




LD 


CMULT2) , HL 


F2E6 


21E803 


6790 


ZUIOOO 


LD 


HL,1000 


F2E9 


22C7F2 


6800 




LD 


(MULT) ,HL 


F2EC 


CD91EE 


6810 




CALL 


GET 


F2EF 


FEOD 


6820 




CP 


13 


F2F1 


C3 


6830 




RET 


Z 


F2F2 


CD65F3 


6840 




CALL 


MULTI9 


F2F5 


2809 


6850 




JR 


Z.ZU100 


F2F7 


32C9F2 


6360 




LD 


(MULTI) , A 


F2FA 


CD56F3 


6870 




CALL 


MULTI 


F2FD 


22CAF2 


6880 




LD 


(MULT2) ,HL 


F300 


216400 


6890 


ZU100 


LD 


HL,100 


F303 


22C7F2 


6900 




LD 


(MULT) ,HL 


F306 


CD91EE 


6910 




CALL 


GET 


F309 


FEOD 


6920 




CP 


13 


F30B 


C8 


6930 




RET 


Z 


F30C 


CD65F3 


6940 




CALL 


MULT IS 


F30F 


2809 


6950 




JR 


Z,ZU10 


F3I1 


32C9F2 


6960 




LD 


(MULTI) ,A 


F314 


CD56F3 


6970 




CALL 


MULTI 


F317 


22CAF2 


6980 




LD 


(MULT2) , HL 


F31A 


210AOO 


6990 


ZUIO 


LD 


HL,10 


F31D 


22C7F2 


7O00 




LD 


(MULT) ,HL 


F320 


CD91EE 


7010 




CALL 


GET 


F323 


FEOD 


7020 




CP 


13 


F325 


C8 


7030 




RET 


Z 


F326 


CD65F3 


7040 




CALL 


MULT I e 


F329 


1809 


7050 




JR 


ZU1 


F32B 


3ZC9F2 


7060 




LD 


<MULT1) ,A 


F32E 


CD56F3 


707O 




CALL 


MULTI 


F331 


22CAF2 


7080 




LD 


(MULT2) , HL 


F334 


CD91EE 


7O90 


ZU1 


CALL 


GET 


F337 


FEOD 


7100 




CP 


13 


F339 


CS 


7110 




RET 


Z 



ben, ohne ein komplettes Programm 
fur Sie zu erstellen. Wir lassen eini- 
ge Routinen nacheinader ablaufen, 
und Sie erhalten von mir die Idee ei- 
ner Adressenverwaltung. 
Die Praxis 

Wie Sie vielleichtbemerkt haben, 
sind die Routineneinspriinge ver- 
schieden gestaltet. Bei einigen mtis- 
sen Register die 'notwendigen Infor- 
mationen mitbringen, wahrend bei 
anderen Routinen rait Variablen, de- 
finiert mit EQU, gearbeitet wird. Sie 
tennen dies abandern, soltten aber 
die Informationen, egal auf welche 
Art, auf jeden Fall iibeigeben. 

Speichem Sie unsere Routinen als 
ein komplettes Textfile mit dem As- 
sembler ab. Bevor Sie dies erledi- 
gen, loschen Sie aber die Zeile 1 mit 
dem ORG-Statement urn dieses File 
spater mit der Include-Mbglichkeit 
in Ihr Programm einbauen zu kon- 

Wir wollen folgende Eingaben vor- 

sehen; 

Name : 15 Zeichen 

Slrasse : IS Zeichen 

Wohnort ! IE Zeichen 

■Dslefon : IS Zeichen 

Zu diesem Zweck legen wir ein 
DIM-Feld A$(100,60) an. Ersetzen Sie 
im Listing 1 die 40 in Zeile 10 durch 
den Wert 101, und in Zeile 20 den 
Eintrag 100 durch 60. Mit einem 
CALL START haben wir nun unse- 
ren Speicherbereich geschaffen: 
AOO: ORG 55000 
A002 *** RAMTOP SETZEN 
AuO-i BEGiNN [,!"::■ lsL.54999 
A0U4 LG ( 23730),HL 
AOOS *** KLE1NSCHRE1BUNG 
AC06 LD HL, 23658 
A0C7 RT.S 3,fHU 
A008 CALL START 

Ein Anf ang ware hiermii gemacht. 
Nun meinen Sie aber nicht, daft das 
Listing so ausfiilirlich weilerfuhrt. 
Ich helfe Ihnen nur uber die An- 
fangsschwierigkeiten. 

Als naehstes schaffen wii unseren 
deutschen Zeichensatz 
A009 CALL SETCHA 
AOiOCALLFARBE 
A011 CALL #*D6B 
A013 LD A,2 
AC13 CALL #1601 

und die Bildschirmfarben, Jetzt 
fangt es an schwierig zu werden. Es 
geht an das Menu. Wir rufen es fol- 
genderraaBen auf: 
A0'4 1IAUPT LD HL.DAT001 
AiVBCALLPINTl 

Das zugehorige Datenfeld legen 
wir in ein separates Includefile ab. 
Wenn wir unser Rotitinenfile »E« ge- 
nannt haben, so ko'nnen wir dieses 
DATAfeld »B« iiennen. Das Pro- 
qrairjmfile nennen wir »A«. 
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F33A 


F3 


7120 




PUSH 


AF 


F33B 


D7 


7130 




RST 


16 


F33C 


Fi 


7140 




POP 


AF 


F33D 


E60F 


7150 




AND 


fcOOOOllll 


F33F 


2ACAF2 


7160 




LD 


HL, (MULT2) 


F342 


5F 


7170 




LD 


E,A 


F343 


1600 


71SO 




LD 


D,0 


F345 


19 


7190 




ADD 


HL.DE 


F346 


3E00 


7200 




LD 


A,0 


F34B 


32C9F2 


7210 




LD 


(MULT1) ,A 


F34B 


110000 


7220 




LD 


DE,0 


F34E 


ED53C7F2 


7230 




LD 


(MULT) ,DE 


F3SZ 


22CAF2 


7240 




LD 


(MULT2) ,HL 


F353 


C9 


7250 




RET 




F3S6 


3AC9F2 


7260 


MULT I 


LD 


A, (MULT1) 


F359 


47 


7270 




LD 


B,A 


F35A 


2ACAF2 


72SO 




LD 


HL, (MULT2) 


F33D 


ED3BC7F2 


7290 




LD 


DE, (MULT) 


F361 


19 


7300 


MULT3 


ADD 


HL,DE 


F362 


10FD 


7310 




DJN2 


MULT3 


F364 


C9 


7320 




RET 




F363 


F5 


7330 


MULTIQ 


PUSH 


AF 


F366 


D7 


7340 




RST 


16 


F367 


Fl 


7330 




POP 


AF 


F368 


E60F 


7360 




AND 


TtOOOOllll 


F36A 


FEOO 


7370 




CP 





F36C 


C9 


7380 
7381 
7382 


*L + 


RET 








7383 


*#* LIST! 


23 






7384 


**# 






731 C 




7390 


HEADER 


E0U 


29980 


7530 




7400 


PLACE 


ESU 


30000 


0064 




74IO 


LENGTH 


ESU 


100 


F36D 


37 


7420 


LOAD 


SCF 




F36E 


3EFF 


7430 




LD 


A, 255 


F370 


DD213075 


7440 




LD 


IX, PLACE 


F374 


116400 


7450 




LD 


DE, LENGTH 


F377 


CD5605 


74 60 




CALL 


H0556 


F37A 


C9 


7470 
7472 


*## 


RET 








7473 


*#* LISTII 


24 






7474 


*** 






F37B 


3EFF 


7480 


SAVE 


LD 


A, 255 


F37D 


DD213075 


7490 




LD 


IX, PLACE 


F381 


116400 


7500 




LD 


DE, LENGTH 


F384 


CDC204 


7510 




CALL 


#04 C 2 


F3S7 


C9 


7520 
7522 


**# 


RET 








7523 


**# LISTII :■: 


25 






7524 


*** 






F388 


37 


7530 


LOAD_H 


SCF 





DAT001DEFW #182] 

DEFB1S 

DEFM "1 - Adiesss 

DEFB 13 

DEFW #1731 

DEFB11 

DEFM "S - andern" 



D-:Ft.l ■ ' 



B 13 

DEFW #1521 

DEFB9 

DEFM "4 ^ So 

DEFB 13 

DEFW * 1421 

DEFB10 

DEFM "3 - 
B030 DEFB 13 

B021 DEFW #1321 

B022 DEFB 14 

B023 DEFM 

B024 DEFB 14 

B025 DEFB 128 

Nach tier oben genarmten Be- 
fehlsfolge erschemt das Menu {zwar 
nicht gerade sehr einfallsreich) auf 
dem Bildschnm. Versuchen Sie 
nicht die Zeilennummer mil dem B 
einzugeben. Dies soil nur heifien, 
daB dieser Programmteil in File B 
gehort. 

Nun muS ja noch die Selection er- 
folgen. 

AD1E LOOP01 CALL GET 

AOIT LD HL.TAB001 

A013 LD C.A 



Diese Schleife wird solange 
durchlaufen bis eine gultige Einga- 
be erfolgt. Die Tabelle legen wir 
wk-idoj- in File E 



B030 DEFM "3" 

B031 DEFW LOE 

B032 DEFM"4 , ■ 

B033 DEFW SOK 

B034 DEFM "fi" 

B035 DEFW LAD 

B037 DEFW SPE 

BQ36 DEFB 128 

Darr.it hatten wir schon viel er- 
reicht. Die Spriinge werden ausge- 
fiihrt, es fehlen die zugehorigen Pro- 
grammteiie. Fangen wir mil dem ein- 
fachen an. 

A021 TATANZ DEFB 

Diese Variable soil die Anzahl der 
Eintrage zahlen. Ldschen Sie im 
SORT-Teil die Zeile 3950. Diese Va- 
riable wird von uns jetzt iibergeben. 

A022 SOK CALL SORT 

A 023 JP HAUPT 

Bevor Sie diese Routine aufrufen. 
sollten Sie die beiden Sheer bestim- 



aife 33 



Kurs 



F389 


3E00 


7540 




LD 


A,0 


F3SE 


DD211C75 


7550 




LD 


IX, HEADER 


F38F 


111100 


7560 




LD 


DE, 17 


F39Z 


CD5605 


7570 




CALL 


#0556 


F395 


01C300 


75SO 




LD 


BC , 200 


F39B 


CD3D1F 


7590 




CALL 


PAUSE 


F39B 


37 


7600 




SCF 




F39C 


3EFF 


7610 




LD 


A ,255 


F39E 


DD213075 


7620 




LD 


IX, PLACE 


F3AZ 


1 16400 


7630 




LD 


DE, LENGTH 


F3A5 


CD5605 


7640 




CALL 


tt0556 


F3A8 


C9 


7650 




RET 








7653 


*** 


_ I STING 








7654 


*** 






F3A9 


3E00 


7660 


SAVE 


_H LD 


A,0 


F3AB 


DD211C75 


7670 




LD 


IX, HEADER 


F3AF 


11110O 


7680 




LD 


DE.17 


F3BZ 


CDCZ04 


7690 




CALL 


H04CZ 


F3B5 


3EFF 


7700 




LD 


A, 255 


F3B7 


DD2 13075 


7710 




LD 


IX, PLACE 


F3BB 


1 16400 


77Z0 




LD 


DE, LENGTH 


F3BE 


CDCZ04 


7730 




CALL 


#04C2 


F3C1 


C9 


7740 




RET 





men. Selbstverstandlich kann das 
Programm dies auch abfragen. Ver- 
suchen Sie eine Eingabe zu steuern. 

Nach dem Soil springt das Pro- 
gramm ins Menu. 

Als nachsies wollen wir auch Da- 
lenfelder laden und auch wieder 
abspeichem (kopflos). Ersetzen Sie 
m Zeile 7400 den Wert 30000 durch 
folgenden zu beTechnenden Wert: 
PPJNT PEEK 23627 + 256*PEEK 23628 

Mit dieser Berechnung bestira- 
men wir das DATAfeld. Den Wert 
LENGTH in Zeiie 7410 legen wir mit 
8009. 

A024 LAD CALL LOAD 

A02S ]P HAUPT 

Das Speichem erfolgt nach glei- 
chem Muster: 

A025 SPE CALL SAVE 

A02T JP HAUPT 

Der Bereich des Einholens eines 
Eintrags Oder das Andern und Ld- 
schen wird naturlich nicht so einfach 
und kurz ausfallen. Aus diesem 
Grund werde ich mich an dieser 
Sieile fii.if Tips b:-?schranken. 

Lbschen Sie den Bildschirm und 
bringen Sie mit einem PRINT-Befehl 
4 mal 15 Felder mit Punkten auf den 
Bildschirm. Setzen Sie die Bild- 
schirmp osteon auf den ersten Punkt 
des ersten Einlrags. Suchen Sie den 
ersten freien Platz mit einer Ideinen 
Schleife 



aHin- 



ADD HL.DE 
LOOPI1 LD A.fHL) 

CP A,(HL) 
JP 2.LEER 
CP12S 
JP Z.ENDE 
LD DE.60 
ADD HL.DE 
]R LOOPIi 

Die Stelle ENDE sollte ei 
weis "VOLLE DATEI" auf den Bild- 
schirm bringen, den Screen loschen 
und nach HAUPT springen. 

Dei wirkkch interessante Vorgang 
wrrd der Teil LEER sein. Es wurde 
sir. frcior Einirsn gefunden. 

Da die Position boreit;; gesc.zt ist, 
geben Sie nui folgende Folge ein: 

LEER LD B,1E 

PUSH HL 
CALL INPUT1 
POPHL 
LD DRIB 
ADD HL.DE 

Das Register HL enthalt ja schon 
die DATAadresse. Mit Ende dieses 
Teiles sind Sie bereit ran den nach- 
sten AdreBteil eintragen zu konnen. 
Eine falsche Eingabe sollten Sie 
durch ein kleines Unterprogramm 
abfangen. Fragen Sie zu diesem 
Zweck, ob die Eingabe korrekt ist 
oder nicht. Wenn nicht, loschen Sie 
diesen Eintrag mit dem Unterpro- 
gramm TEILOE und starten Sie neu. 



Auf diese Art und Weise hoien Sie 
alle 4 Adrefiteile in den Speicher. 
Pnlfen Sie nun das erste Byte des 
Namens auf " ". Sollte dies der Fall 
sein, so lbschen Sie den kompletten 
Eintrag, er wiirde sowieso beim 
nachsten Neueintrag uberschrie- 
ben. Nun erhbhen Sie noch unseren 
Z;Ui;erTATANZ: 

LD DE,(TATANZ) 

1NCDE 

LD (TATANZ1.DE 

Beim Loschen oder Andem benb- 
tigen wir eine Suchroutine. Wir 
schaffen uns einen Buffer von .15 Zei- 
chen Lange 

Butter DEFS IS 

um in ihm einen Sucheintrag abspei- 
chem zu konnen. Veigleichen Sie 
Byte fitr Byte die Namen. Wenn Sie 
gieich sind fiihren Sie die entspre- 
chende Routine aus. Ansonsten er- 
hohen Sie den Zeiger um 60 und ver- 
gleichon weiter. 

LD HL.CVARS) 

LD DE.B 

ADD HL.DE 

EX DE.HL 
WEITER LD B.15 

PUSH DE 

LD HL.BUFFER 
LOOP12 LD A.(DE) 

CPCHL] 

JR NZ.UNGLEI 

INCDE 

INCHL 

DJNZ LOOP12 

]R GLE1CH 
UNGLEICH POP DE 

LD HL.S0 

ADD HL.DE 

EX DE.HL 

]R WEITER 
GLEICH POP DE 

DE zeigt nun auf das erste Byte 
des gefundenen Namens. Machen 
Sie mit diesem Eintrag was Sie wol- 
len. Zeigen Sie inn an und lassen Sie 
inn andern. oder lbschen Sie inn. 
Setzen Sie aber TATANZ dann zu- 
ruck. Eigentlich war das ja schon al- 
les! Der Rest sind Kleinigkeiten. 
Zum Beispiel sollten Sie vor dem 
SORT etwas abfangen. Wenn kein 
oder nur ein Eintrag existiert, soli 
der Sort nicht anlaufen. Entspre- 
chende Meldungen gehoren auf 
den Hi'.dschirm. 

Wenn Sie die Anzahl der belegten 
Files auf dem Bildschirm prasentha- 
ben mochten, so weisen Sie ihr ei- 
nen Platz zu. Folgende Befehlsfolge 
bringt die Zahl auf den Screen: 

LD DE.TATANZ 

CALL DEZIM2 

Sie miissen eine ganze Reihe von 
Datenfeldern schaffen, Jede Bemer- 
kung oder Aufforderung, Kommen- 
tar oder Fehlermeldung gehort auf 
den Bildschirm. (Haiald Wilhefm) 
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Entweichen 

Ein Spiel in vier Bildern mit guter 3D- 
Grafik und Eingriff in den Sinciair- 
Zeichensatz. 

Ein 3D-Programm braucht viele Grafrkzeichen. Der Spec- 
trum laBtjedochnur 21 Grafikzeichen zu. UberdenUmwegder 
Zeichensatzanderung werden hier jedoch 42 »UDGs« defi- 
niert. Die Systemvariable in der Adresse 23606 und 23607 
zeigtauf denAnfangdesjeweiligenZeichensatzes. Derzweite 
Zeichensatz in diesem Spiel beginnt bei der Adresse 64600. 
Der Original-Zeichensatz haidie Siartadresse 15360 im ROM. 
Dieses Spiel ist also nicht nur als Spiel zu betrachten, sondem 
auch als Hinweis und Anleitung zum Aulbau von ^SCREENS* 
und zur freien Verwendung von beliebigen Zeichensatzen. 
Dennoch lohnt sich auch das Spiel selbst, es ist jedenfalts 
recti! miihsam, dasZiel zu erreichen. Sie haben einem Gefang- 
nis, einem Irrgarten, einer Brilcke und einer Treppe voller 
Tucken zu entweichen. (H. Pallada) 





Die Im Listing »l 
chenn benutzten Vaiic 
blen auf einen Blick 



Typrsche Spielszene 



#******#» 



****** 
PRLLRDR 



*FUER HAPPY COMPUTER * 

1 GO TO 9030 
1030 REM 1. SCMIHM 
1001 IF LK1 THEN GO TO 7303 
1035 INK 3: OUER 0: FLASH 3: PRP 
ER 4: BRIGHT 0: CLS : BORDER 4: 
BRIGHT 1; PAPER 2: INK 0: LET 50 
C=0: LET NN"5: LET UU=1 
1311 FOR Y=0 TO 4. STEP 2: FOR X = 
5 TO 25 STEP 2; BEEP .007,21-X: 
PRINT RT YjX;"fl£" : NEXT X: NEXT 

1B12 FOR Y = l TO 3 STEP 2: FOR X = 

S TO 25 STEP 2: BEEP .007.X: PRI 

NT RT Y,X;"SB" : NEXT X: NEXT Y 

1013 FOR Y«|B TO 21 STEP 2; FOR 

X-0 TO 31 STEP 2: BEEP .007,21-X 

: PRINT RT Y,X;"fl6"J NEXT X: NEX 
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101* FOR Y»16 TO 20 STEP 2; FOR 
X*0 TO 31 STEP 2: SEEP . 007, X : P 
RINT AT Y,X;"£fl": NEXT X: NEXT Y 

1015 PAPER liTOR X=4 TO 10; PRI 
NT AT X,0;" ";AT X.31;" ": NEXT 
X: PRINT INK S; AT 3,31;"*";AT 3, 
0: INK Si'-e" 

1016 BRIGHT 0: PAPER 6i FOR X=0 
TO 31 STEP 2: PRINT RT 14,X;"£S" 
j NEXT X 

1013 FOR Xal22 TO S3 STEP -15: P 
LOT 6.X : DRP.UI 33,4.3: PLOT 7 , X : D 
RAU -7,-43: PLOT £49, X: DRAW -33 

,43: PLOT 249, X: DRRU 6,-40: NEX 



1021 BRIGHT 1: PRINT INK 3; PAPE 
R 2; AT 18,14 ; "bM c"; AT 19 , 14;Jiii 

"jbt 20,14; ■■mr-.ai ai,i*;"ipF7 

INK 0: PLOT 124,0; DRRU 0,30 

1022 FOR X*3 TO 28: SEEP .007,23 
-X; PRINT INK 1; PAPER 5; BRIGHT 

1;AT 10, X; "f: NEXT X 



- . I M ( 11 , 

X) =33 OR RTTR (9,30-X)=33 TMEN G 
TO 15B0 

1631 PRINT INK 6; PAPER 4; AT 11, 
X; "til"; AT 9,30-X; (, w" : GO SUB 1070 

: PRINT PAPER 4; RT 11, X; " " ; AT 9 

,30-X;' 1 ": NEXT X 

1032 FOR X = 27 TO 4 STEP -1: IF A 
TTR (11, XI =33 OR RTTR 19,30-X)=3 
3 THEN GO TO 1500 

1033 PRINT INK 6; PAPER 4; AT 11, 
X;"W";AT 9,30-X; ''Ul": GO SUB 1070 
: PRINT PAPER 4; RT 11, X; " ";AT 9 
,30-Xi" ": NEXT X 

1060 GO TO 1029 

1070 PRPER 4: BRIGHT 0: IF INKEY 

i 3 "6" THEN PRINT AT XX, 10;" " ; A 

" : ■ ' .. .■■ - 

12) : IF XX«ia AND I4U»1 THEN RAND 
OMIZE USR 64024: LET UU=0 
1075 IF INKEYin"7" THEN PRINT RT 
XX, 10;" ";RT XX+1,10;" " : LET 
XX=XX-1*(XX>8): IF XX=5 THEN LE 

T UU = 1 

10S0 IF INKEY|=" " THEN IF XX = B 
OR XXnll THEN RANDOMIZE USR 6412 
0: PRINT AT 8+3* tXXxll) ,10; " "; 
AT 9+3*(XX«ll) ,10; " ": LET XX=X 
X+3-6*CXXnll) : RANDOMIZE USR 641 
44: GO TO 1062 

1085 PRINT INK 1J PRPER Bj BRIGH 
T l;AT 10,3; "f f F f F F f F f f f F f F f f F f f 
tfflff" 

1086 IF XX = 5 THEN LET UU=1: PRIN 
T PAPER 4j_ INK lj BRIGHT 0:AT 5, 



PAPER 4j INK i, oniwni «i,ni =, 
;"Hal";RT 6,10: f '£K": PRINT AT 4 

fc-W~... fr 0R g^^g-^Q 40 sTEp g 



NEXT S: RETURN 



,NN, : run 

BEEP .009,5: neai o: kciukh 

1087 IF ATTR (XX,10)sl05 OR RTTR 
(XX+1, 10) =10S THEN LET UlJal: GO 

TO 1500 

1088 IF UU*0 THEN GO TO 1093 
1090 PRINT PAPER 4; INK 1; BRIGH 
T 0;AT XX, 10; "DF"; AT XX+1,10;"E3 

1092 RETURN 

1094 PRINT PAPER 4; INK 1; BRIGH 
T 0;AT XX,10;"E ";AT xx+l,lB;"fl 

1095 IF XX = 6 THEN LET NN=NN+1: L 
ET SCbSC+10; INPUT 80: PRINT 00; 
"SCHIRM:1 SCORE: " ; SO ; " LEBEN:":L 
S( TO LI)": IF NN>=26 THEN GO TO 



=LI-1: INPUT U0: PRINT B0; "SCHIR 

Mil 5CORE; ":SC; " LEBEN:";L*< TO 

LI) : GO TO 1000 

1S20 GO TO 1025 

1800 FOR X»0 TO 30: NEXT X: CLS 

: FOR X=0 TO 30: PRINT INK 0; PA 

PER 2;RT RND*20,RND*30; "fifl" : BEE 

P .03, X: NEXT X 

1810 FOR X = TO 100: NEXT X; : RE 

M ENDE 1. SCHIRH 

2000 REM 2. SCHIRM 

2005 IF LI<1 THEN GO TO 7000 

2010 BRIGHT 0; BORDER 3: PAPER 3 

: CLS 

2020 BEEP .0^10: PAPER 3: PRINT 



c^Cf DEEP . Uij-Lttf 




s* I 



PRINT INK 7: " , 
. . "; INK 6; ''■" 




k kVj ■ 

2035 BEEP 

"; INK l; "«■ ■■"; 4Nr\ r -,-■■, -i ± 
NK S;"d": INK 1; "IT; INK 7;" .''} 
INK Si-d' 1 ; INK liTT; INK ?;"■ i 
INK S;"d''; INK l;Vi INK 7;".' 1 
: ink SJ^d''; ink uTr"; ink 7;". 
'■■. INK S;"B f '; INK ljTTjINK 7;" 
.", ink Sj^d''; ink i,Tpp"; INK 
7; "."; INK S;"i"; INiTT;"!" _ 
2040 BEEP ,01,14: PRI NT I NK 5; "■ 
". INK l;"l"j INK 6;"BM"; INK 
paper 5;"g"; paper 3; INK l;" 
R : INK ^L"WLi INK 1; 
wis fj .''; INK 5;TT; INK 1 
INK 7:". ( '; INK 5jTti INK 
(■_, INK 71". 'i INK SjTr'; INK 

liTLl; ink ?;■'.'> ink S; t V'; in 
tiTf'j INK 7;"/'; PAPERS; ink 
_; f 'd w j PAPER 3; INK 6J'#'; INK 
6, 'Big": INK 7; "."; INK 5;"1"; 
INK l; "I" 
2045 BEEP .01,15: PRINT INK 5; "■ 

"; INK !;"■"; INK 7;" "; INK 

5i"ILi INK l;"iiV; INK 7:".'': INK 
5;TL_; INK l;Xi INK 7;".' , j IN 
K S;Tr; INK ii^WLl INK 7;".'': I 
NK Si'WLi INK l;Tr: INK 7:". f '; 
INK S.TT: INK ijTKli INK 7;". f '; 
INK Si 1 *!' 1 ; INK Xi^m'-; INK 7; " . . 

."! Tnk S; "I"; TNk l;"l" 

2050 BEEP .01,16: PRINT INK 5;"1 
": ink U "■"; ink 7;"«"j ink s; 77 
f, . INK S,*Wtaftj ink 71". *, INK 5; 
INK liYi INK 71".'", INK 5 
INK l;Ttl; INK 7:". f '; INK 
= , ■ , INK l;T| , INK 7;"."; INK 
5; PAPER 6; f, 9 w ; INK 6; PAPER 3; 

i INK 5;'' 

'J INK 5; 






.;.. 



Si-d' 1 ; INK l; „ 
2060 BEEP .01,17: PRINT INK . 
INK 1; "IT; INK 7J"."I INK 

-'' INK 7: - '■ 



INK 1 ;"■'', -li- 
PAPER 8;"d w j paper 3; 

TMK -7 • '■ ThIIC =: ■ ■■■'> ■ 






l; "■"; INK 7; " . "; INK S; 
K Xi^M"} INK 7£".''; INK 5 
NK L-*Wl; INK 7; "."; INK 
R 5; f 'd|B9"; INK 1, "l" 
2065 BEEP .01,16: PRINT I 
"; INK 1; '■■": INK 7; "."; . 
■"; INK l; 1 Ti f, j INK 7;"... 

5; "■"; INK 1; "■"; INK 7; ' 

Basic-Listing »Entweichent< (Fortsetrung) 
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3SgsSS& 
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Spiele-listing 



NK S;*V' 



INK 1 



:nk 5 

> .01 

"; INK l; "i^; 

R"; INK l; 77 !'' 
K 7:"."; INK 



INK 7;". 

INK 7;" 

1 ; INK 7; 



INK 5; 77 ! 1 '; INK -l, ■ 

._..-'; INK 5; "■"; INK *, ■ 

2070 BEEP .12)1,19: PRINT INK 

INK 7; ". "; INh 

INK l ;"■■■■ 

ini\ fi . , .Liirs 5: PAPER 5: "g' 

PER 3; INK 6; 'V'- ™* -7- '■_*: 

*- PAPER 6; S , 

ink e^'ip? ; ink 7^"."j ink 



INK 



"i 

2075 



INK . . 
PAPER 3; 
.... =, « ; INK 7i/'. , 
APER fe;" ; PAPER 3: INK 6; 
INK 7; ".■_, INK Si'W'i INK 1 



1,20: 
; INK f t 
PAPER 3; 



fc"W* 



PRINT INK 5; "| 

INK 7; "."; INK 6J 

INK S;"l| 



INK 6 



I BEEP .e 
. INK l; •■■'■ 
PAP ER 3l"d W : 
■H9"; INK 7; ■'. 
K 6; PAPER 5; "d' 

; "Big"; ink 7; ' 

2030 BEEP .01,21: PRINT INK 5; "■ 

'■; INK l; ■'■'■; INK 7: ■' w 

; INK S; f 'd w ; INK 1; ''1"; INK 7;". 
'■J INK S;"d ( '; INK uV; INK 7i" 
■ '' ; INK Sj"d'': INK l; 1 W - ; INK 1; 

"■■" ; INK 7; '■ " j INK 5; "1 

"TlNK 1:"1" 

She5 BEEP .01,22: PRINT INK S:"l 

"; INK l: " i"; INK 7; " ,"; ink Si 77 

d"; ink i,~nBB^K" INK ?;"."; 



INK 



INK 7;". 
; INK -"j" 

PAPER 3; 
"; INK 5; 



INK 5; PAPER 6; ' 
NK 6; "■■9"; INK 7; ' 
■'; INkT; ■'■''; INK 7; 
d fl ; INK i;TLl; INK ?;■.-■; ink a; 
"■■ f "i INK l; 17 !'' 

2093 BEEP .01,23: PRINT INK 5;"1 
": INK l;"l"j INK 7; " ,"; INK 6; 
PAPER 5; r 'd"; INK £,"■■■?"; PAP 
ER 3; INK l;"iil; INK 7;".' 7 ; INK 
5; ■■■"; INK lj"l fl i INK 7;".''; INK 

5; PAPER S; r, 9 , PAPER 3; INK 6j 
"g"; INK 7;' 1 "; ink 6;"r; 

INK l; "■" J INK 7;' i ."; INK SiTT 
: INK l;Tr; INK 7.;".''; INK S; TT 1 
'•; ink i:Tr 

2095 BEEP .01,24; PRINT INK 5j "■ 

"i ink l;"l"; ink 7," "; P 

flPER 5; INK 5; ,, 9 ,, J PAPER 3j INK 
6;"g"; PAPER 3j INK 7;"."; INK 5 
I PAPER 6; "9"; PAPER 3; INK 6;"g 
''; INK 7;'' "; INK 5;"d"; INK 

l;"l"J INK ?;",.."; INK 5; "I"; 
INK i;' 1 !"; INK 7: , '. f, ; INK S; 77 !"; 

INK lj'Vli INK 7;". ,, J INK Si 77 !" 
; INK lj/W' 
2100 BEEP .01,26: PRINT INK &V'l 



h'': 



K lj "ir ; INK 1, 
NK ljTt.; INK 7 

ink l; 1 Tl'-- - 



. INK 
o,-a-j INK 

Si"!' 1 ; INK 1, 
K Sj^d' 1 ; INK 1 
i, . , INK 5;''l"; INK j., 
7; ". ( '; INK 5;*1P; INK I; . 
" 01,26: PRINT INI 
INK ~ 



INK 



210E'beEP .01 



PAPER _, 
INK Si. "ill INK 

J INK Si"!''; INK 
2110 BEEP .01,27. 
"; INK lj"l"; INK 




, INK 5; 

INK 7; " . '',' INK ; 
... IN|< . 



7;"."; INK sTTWl; INK it* 

7\ ■■.'■; INK 5r T U' , i INK l; 

K 7; , ', ,, ; INK 6; PAPER S;* 1 

APER 3; INK i, '1"; INK 7; 

TWK ij^ir; INK 7, . 

PRTNT INK 5;" 
; INK^B^ 



; INK 7;' 1 ."; INK 6; P APER SVd"; 

PAPER 3; INK 5,"HMg"; INK 7;" 
."; INK 5;"H; lNiTTj R l"; INK 7; 
".■'; INK S;*M-'i INK l; 7 *'; INK 7 
;"•■■"; INK 5; f 'l"; INK !;''■"; IN 
K 7;". ( '; INK 6; PAPER s; f 'd w ; ink 

5; PAPER 3;"g"; INK 7:'\"; INK 
61 PAPER 5;''d n ; PAPER 3; INK 5i" 

2115 BEEP .01,27: PRINT INK 5; "1 
", INK i;"l", INK 7; "...."; INK 

5; "I" ; INK 1; "■" ; INK 7; " 

.'•; ink s; "IT ; ink l; "11; INK 7; 
".''; INK 5; TT l"j INK l; 77 !"; INK 7 



-:::-.. IP .01,29; PRINT INK 6: P 
APER 5;"d"j INK 6; PAPER 3 ; "ll 

SilJ POKE 23674-, 0: POKE 23673,24- 

0: LET BON=25S: LET 3CC=-1: LET 

FB=7: LET XX=2: LET YY=0: LET X= 

2; LET Y=0; FOR S=0 TO 10: NEXT 

5 

2220 GO TO 2300 

2230 LET AS=INKEYft 

2235 IF A4="5" THEN LET Y=YY-1-M 

YY<0 OR ATTR (XX , YY- 1) <>31) - CATT 

R iXX.YY-1) =68) : IF YYoY THEN P 

RINT PAPER 3j AT X,YYj" ": IF ATT 

R IXX,YY-1)=68 THEN LET LI=LI-1: 

RANDOMIZE USR 64.043; '30 TO 2000 
2240 IF RS^'S" THEN LET Y=YY + 1- ( 
YY>30 OR ATTR (XX ,YY + 1) < >31) + (AT 
TR (XX,YY + 1) =68) : IF Y OYY THEN 
PRINT PAPER 3;AT X,YYj" ": IF AT 
TR (XX,YY+1)=6S THEN LET LI=LI-1 
: RANDOHIZE U5R 64043: GO TO 200 


2250 IF A*="6" THEN LET X=XX+1-C 
:<:-:>;. 3 OR ATTR IXX + l , YY) -;>31) ■:- ;>h7 
TR (XX + 1 ,YY) =66) ; IF XoXX THEN 
PRINT PAPER 3iflT XX, Yj" ": IF AT 
TR (XXt1,VY)=63 THEN LET LI=LI-1 
: RANDOMIZE U5R 64048: GO TO 200 


2260 IF A*="7" THEN LET X=XX~1+ ( 
XX---2 ZR RTTR (XX-ljYYS ', >313 - (ATT 
R i:xX-l,YY) =53 J : IF XoXX THEN P 
RINT PAPER 3; AT XX, Y; " ": IF ATT 
R <XX-1,YY)=6S THEN LET LI=LI-1: 

RANDOMIZE USR 64048: GO TO 2000 
2270 LET XX =X: LET YY =Y : IF YY=3 
AND FB-.0 THEN RANDOMIZE USR 54 
072: RANDOMIZE USR 64072: PAUSE 
100: GO TO 3000 

2230 IF YY=31 THEN LET YY=30: LE 
T Y=30 

2300 IF SCREEN* tX,Y>=" ." THEN L 
ET SCC=SCC+1: LET 3C=SC+.5; BEEP 

.005.X+Y: INPUT tt0: PRINT B0;"S 
CHIRM:2 SCORE:"; INT (SC)j" LEBEN 
:";L$( TO LI): LET BONUS = 10* (BON 
-PEEK 236731* (PEEK 23674 = 0)-. PRI 
NT INK 7JPT SljOj "BONUS: "J AT 21, 
6; " "; at 21,6: bonus 
£310 if 5cc=220 then if rndj.6s 
then let a=1+int (rnd*18) : let b 
=1+(rnd*29): if attr (a,b)=31 an 

D H(>2 AND Roll AND B<26 THEN P 
RINT , INK 4, PAPER 0; BRIGHT 1; 
AT A,Bi"i" 

2320 IF SCC=220 THEN IF XX=2 AND 
YY = AND FBOO THEN LET FB=0: B 
EEP .009,0: BEEP .007,30: BEEP . 
008,10 

aaas if scc=220 then if bonus 00 

THEN LET SC =SC 4-BONUS : RANDOMIZE 
USR 54120: INPUT 80 : PRINT «0; ; 
Basic-Listing piEntweichen« {Fortsetzung) 
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'■5CHIRM:2 SCQRE:";INT (SO j " LEB 
EN:";L$( TQ LII : LET BQNUS=0 
2335 PRINT INK FB ; BRIGHT 1 ; AT X 
.Y; "i": GO TO 2230 
310a LET SC=INT (SO 
3105 LET SCC=0: LET UU = 0; LET U= 
0; LET X*3: LET Y = 14: BRIGHT 0: 
INK 7; PAPER 0: BORDER 0: CL5 : 
INPUT B0: PRINT fl0;"5CHIRM:3 SCO 
"-='-■ " LEBEN: ";LS< TO LIJ 
~ INK 2; 



, INT 5C; 



3110 C DR XxSTO 15: PRIh 

AT X,0, "MBM", AT X,S0;"« 

■ " : BEEP „01,2*X: NEXT X 

3120 FOR X = fl TO 2: PRINT INK 4; A 

T 4-X,X;"d , ' : BEEP .02,3*X; NEXT 

3130 FOR X=E TO 2: PRINT INK 4; R 
T 4-X.20+X; "d" : BEEP .01,6+3*X; 
NEXT X 
3135 FOR X*0 TO 2: FOR Y=l TO 5: 

PRINT INK 4jAT 4--X , X+Y ;"■" : BEE 
P .01,12+3*X: NEXT V: NEXT X 
314-0 FOR X=B TO 2: FOR Y = l TO 8: 

PRINT INK 4JAT 4— X , 28+X+Y: •■■" : 
NEXT Y: BEEP ,01,18+3*X: NEXT X 
3145 FOR X=7 TO 9: PRINT INK 4; 
PAPER 3;fiT X-5,15-X;"g": BEEP .0 
1,3*X; NEXT X 

3150 FOR X=7 TO 9: PRINT INK 4; 
PRPER 3;AT X-5.3S-X; "g"; BEEP .0 
1, (50-3*X) : NEXT X 
3155 FOR X = B TO 9: FOR Ysl TO 3: 

PRINT INK 3:AT 6+X-Y , 5 +Yj "l" : B 
EEP .01, (X+Y): NEXT Yi NEXT X 
31S0 FOR X=0 TO 9: FOR Y=l TO 3: 

PRINT INK 3;AT 6 + X-Y.2S+Y; "■■': 
;;;:.-■ .'■:■>:: NEXT 

3155 FOR X=13 TO 20: PRINT INK 3 
; PAPER 1; RT X-5.26-X; "a": NEXT 



TO X-i. 



BEEP ,01,50-X-Y: NEX 



3180 PRINT IN 



3185 



,20,. 




1 ■ ,HI 

3190 FOR 
jPAPER 0;flT X , 21-X 
■■" : BEEP ,01,50-X 
3200 FOR X=16 TO 21 
; PAPER 0; AT X, :-5-x 
" NEXT X 



17 22 " "UUU UUU " 

3300 LET g=0: LET p[_il; LET 00=0 

: LET X=3: LET Y=27 

3305 PLOT 0,175: DRRU 255,0 

3310 PRINT INK l; PAPER 4; AT X,Y 

3320 IF SCC=110 THEN PRINT PAPER 

5; INK 0;AT 4,13;"y"; FOR B = 21 
TO 13 STEP -1: PRINT INK 2: RAPE 
R IjflT B,26-B;"x": PAUSE 10; PRI 
NT PAPER 1;AT B,26-B;" " : IF UU = 
2 THEN NEXT J: LET UU=3: IF (Bo 
13 OR Yol3l THEN LET LI=LI-1: F 
OR 5=0 TO 3: RANDOMIZE USR 54048 
; NEXT S: LET UU = 2; GO TO 3370 
3330 IF SCC=110 THEN IF 6 = 20 THE 
N BEEP .009,0: BORDER 7; FOR T=fl 
TO 10: NEXT T: BORDER 0: BEEP . 
009,20 



3340 IF SCC<>110 THEN FOR U=l TO 

2: GO TO 3350: LET U*l: PRINT A 

T l,B + l; "v"; AT 2- 1B<9 OR BH01 .B 



+l;"v": IF ATTR (3,B+1)=49 OR AT 

TR !3,B+1)=33 THEN LET LI=LI-1: 

LET UU=2; RANDOMIZE U5R 64095; 

TO 3370 

3345 IF U=l THEN PRINT PAPER 0; A 

T 1,6*1;*' ";AT 2-(B<9 OR B>19),B 

+ 1;" " : LET U = B 

3350 IF 00=1 THEN GO TO 3460 

3360 LET AS=INKEY$ 

3355 IF AS="4" AND (Y<20 AND Y>8 

) THEN PRINT INK 5 : AT X,Y;"M": R 

ANPOMIZE USR 64192: LET UU=2: FO 

R J=S TO 12: PRINT AT J-l.Y:" "; 

INK 7;AT J,Y;"i"; FOR T=l TO 5; 

NEXT T: NEXT B; NEXT J: LET T=B 
: LET UU = 3: IF (Bol3 OR Y<)13) 
THEN LET LI=LI-1: LET UU=2; RAND 
OMIZE USR 64048 

■3357 IF U = 4 THEN LET LI = LI-1: LE 
T UU=2: PAUSE 50: LET U=0: RONDO 
MIZE USR 64048 

3370 IF UU=3 THEN RANDOMIZE USR 
64072: RANDOMIZE U5R 64072: PAUS 
E 30: GO TO 4000 

3372 IF LK1 THEN GO TO 7000 
3375 IF UU = 2 THEN PAU5E 100: CLS 

: GO TO 3105 
3330 IF fi*="S" THEN IF (Y>21 OR 
X<>4) THEN LET Y =Y+1 - (Y ;27! : IF 
Y(29 THEN PRINT PAPER 4+2*(Y<22 
AND Y>7); INK i ; hT X,y.;-;"; INK 
3;AT X,Y-1;" "; IF Ys8 OR Y =22 T 
HEN PRINT AT X.Y-1; INK 4+2#(Y=2 
2): PAPER 6-2* (Y = 22) ; "g" 
3335 IF P$=-5- THEN IF ATTR (X,Y 
-11=7 THEN LET A$ = "4 i ' : LET U=4: 
GO TO 3365 
3390 IF AS="5" THEN IF (Y>=22 OR 

X=3) THEN LET Y=Y-1 + (Y <4) : IF Y 
>2 THEN PRINT PAPER 4+2*(Y<21 AN 
D YJ6)i INK l;AT X,Y;"i"; INK 3: 
AT X,Y+lj" -: IF Y=6 OR Y=20 THE 
N PRINT AT X,Y+l: INK 4+2*iY=20i 
; PAPER &-3± .'Y=S0J ; "-a" 
3400 IF B*= n ?" THEN IF Y<6 OR Y > 
20 THEN LET X=X-1+(X<4) : IF X>2 
THEN PRINT PAPER 4; AT X+l- (X=l) , 
y; ■' "; INK l; PAPER 4;AT X^Y;"!" 
3410 IF R*»"6" THEN IF Y<5 OR Y> 
20 THEN LET X=X+1-(X>3): IF X<5 
THEN PRINT PAPER 4: AT X-l+tX=5>-, 
Y; " "; INK l; PAPER 4;AT X,Y; -, i" 
3420 LET AS=INKEY| 
3431 IF A**"^' THEN IF X = 4 THEN 
IF ATTR (i5,Y)=49 THEN LET PL=15 
3440 IF A*«*9" THEN IF X=4 THEN 
IF (ATTR (17,Y)=49 OR PL=15) THE 
N FOR K=5 TO (IE- (PL = 15) ) : BEEP 
.003, 3*K: PRINT PAPER 2; INK 7;A 
T K,Y;"t": NEXT K: FOR K=(15-(PL 
=15)1 TO 5 STEP -%: BEEP ,003,3s 
K: PRINT PAPER 6; INK 0;AT K,YJ" 
f: AT K + l.Y; "u 1 ' ■ 
);AT K+2-(K>13 AND PL=15),Yj" ": 

NEXT K: PRINT PAPER 2: AT K+1,Y; 
'■ ";AT K + 2,Y; 1 ' ": PRINT INK 0; P 
APER 6;AT K,Y;"z"; PAPER 4; INK 
l; ,, i"; LET 00 = 1: LET PL = 17 
3450 IF OOa0 THEN GO TO 3510 
3470 LET R*=INKEY4 

3430 IF fi-f="5" THEN IF X=3 AND A 
TTR !3,Y-2)=7 THEN PRINT INK 6J A 
T X,Y-2i"ii"; INK 5JAT X+l,Y-2;" 

!": LET 00=3: RANDOMIZE U5R 6424 
: LET 5CC^SCC+10: LET SC=SC+10: 
INPUT B0: PRINT B0;"SCHIRM:3 50 
ORE:";INT SO; "LEBEN ;"; L t ( TO LI) 
: GO TO 3510 

3490 IF AS^'S" THEN IF ATTR (X,Y 
-2) <>7 THEN IF (Y>=23 OR X=3> TH 
EN LET Y=Y-1+(Y<4); IF Y>2 THEN 
PRINT INK 0; PAPER 6; AT X,Y-li"Z 
"i PAPER 4+2*(Y<2l RND Y>61; INK 
Basic-Listing "Entweichenn (Fortse&ung) 
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RT X,' 



fi; " 



+ 2*(Y<21) -2* (Y = 19) ,' 
: IF Y = 5 OR Y = 20 TH 
' ' INK 4 + 2*<Y=20 



EN PRINT RT n , . T -*± 

) ; paper 6-2*(Y=a0! ; "g 

34.95 IF R*="8" THEN IF £Y>21 OR 

Xoll THEN LET Y=Y + 1- tY>2S) : IF 

Y<29 THEN PRINT PRPER 4+2*(Y<22 

AND Y>7); INK 1; AT X,Y;"i"; RAPE 

R SJ INK 0;"z"; PAPER 4+2*<Y<23 

RND Y>7): INK 4 + 2* (Y <23) +2* <Y*23 

RND X = 3S;AT X,Y-2; "g ": IF Y»S 
OR Y=22 THEN PRINT RT X,Y-1; INK 
i 4+2*CY=22) j PRPER 6-2* CY=22) ; "g 
3580 IF flt="7" THEN IF Y<5 OR Y> 
20 THEN LET X=X-1+(X<41: IF X>2 
THEN PRINT PRPER 4;AT X + l-IXsl)', 
Y;" "; INK 0; PAPER 6;AT X,Y;"I" 
, PRPER 4: INK i;"i"; PRPER 4;AT 

X + l.Y-l; 1, ": IF Y=21 THEN PRI 
NT INK Sj PRPER 4;flT X+l,20;"g" 
3510 IF ClOQ THEN NEXT U: POKE 2 
3519,13: POKE 23618,12: POKE 236 
20,4 

3520 NEXT B; PRINT PAPER 0;RT 0, 
31; "fi" : GO TO 3320 
4040 IF LK1 THEN GO TO 7080 
4045 BRIGHT 0: BORDER 1: LET SCO 
=0: LET NN = 5; PAPER 1: CLS : LET 

Ct*"Q": LET D4="p": LET 00=0: L 
ET gu=0: LET M = 19: INK 6: PRPER 
2: INPUT MO: PRINT 80; "SCMIRM: 4 
5C0RE: ";5C; " LEBEN : " ; L* ( TO LI) 
4050 PRINT AT l,l;"dj" 
4060 PRINT "dgdj" 
4070 PRINT "■dgdj" 
4030 FOR X»l TO 15 

4090 BEEP .01,2*X: PRINT RT X + 3. 
X; "Idgd j" 
4103 NEXT X- 

4110 PRINT AT 19,13; ,, ldgdj" 
4120 PRINT RT 20,17; "|dg" 
4130 PRINT RT 21,16; "1" 
4140 PRINT PRPER 1; INK 6; AT 1,1 
;"d";AT 2,0; ■■d"; AT 2E.19; f, g" 
4160 PRINT INK 2, BRIGHT 1;AT 21 
- 19; "■■■■■■"; PRPE R 5J BRIG HT 

0, INK 4; AT 20,19; "d^^^^M", 

PAPER 5;flT 19,20; "di|H IV 7 
4170 PRINT PAPER 2; INK 4; AT 19, 
39: "a"; AT 20,28; 'V 1 ; PRINT INK 2 
; PAPER i;AT 20, 29; "g"; AT 21,28; 

4130 INK 3 



TO 21: PRINT RT Y,0 



.. NEXT 
4215 PRINT INK 3; PAPER 1;AT 0,1 

;"K"jrt i,0;"rs" 

4220 FOR X = TO IS: PRINT BRIGHT 
1; INK 7;RT X,23j"B": EEEP .01, 

(50-2*X) : NEXT X 

4230 FOR X=2 TO 19: IF ATTR (X,X 
) =46 THEN LET LI=LI-1: RANDOMIZE 
USR 64048: PAUSE 50: GO TO 4040 
4240 PRINT INK 0: BRIGHT 1; PRPE 
R 6;AT X,Xj"w"i PAU5E 5; PRINT R 
T X,X; PAPER 2; INK 6:"d" 
4250 IF UU=1 THEN NEXT 5: LET UU 
= 0: PRINT INK l:flT M -5 , NJ "l" ; AT 
M-*,M;"1": PRINT PRPER 5; INK 0; 
AT M,M;C$;AT M+1,M;D$ 
4260 IF INKEY*="6" THEN IF M < 19 
THEN LET M=M+1: PRINT INK 6; PRP 
ER a; AT M-l.M-1; "d":AT M,M-l;"a" 

: LET 00 = 6: IF M = l THEN PRINT IN 
K 1;AT 0,0;"l";flT 1,0; "■" 
4270 IF 00=5 THEN LET Ct«"t": LE 
T Dt="L": LET 00=0: GO TO 4308 
4275 IF INKEY* = ,I 7" THEN IF M>0 T 
HEN PRINT INK 6; PAPER 2; AT M , M ; 
"d";AT H + l,M;"g": LET M=M-1: LET 
Ct!"!]"; LET D$="p": GO TO 4300 

40 £0&ki 



4230 IF INKEY$= 
10 



THEN GO. TO 43 
GO T 



4300 IF H<=1 THEN PAUSE 50: 

6000: REM ENDE SPIEL 

4305 PRINT INK 2; PAPER 6; INK 

;RT H,MjC«;fiT Mr! ,tf;DS: IF SCC < Z 

9-M THEN LET 5C=5C+ 10* ( 19-M) -10* 

5CC: LET SCC=19-M: INPUT «0 : PRI 

NT B0J "5CHIRM:4 SCORE: " } SCj " LEB 

EN: ";L$( TO LI) 

4307 GO TO 4350 

4313 IF M<=3 THEN NEXT X 

4320 PRINT PAPER 2; INK 6; AT M,M 

; "d"; AT M + l,M; •■g" 

4330 PRINT INK 0; PRPER 6; FLASH 

1; BRIGHT 1,AT M-5,M;C4;AT M-4, 
H;DJ: LET UU = 1 
4340 FOR 5=20 TO 50 STEP 4: BEEP 

.03,S: NEXT X: GO TO 4230 
4350 IF M<18 THEN PRINT INK 7: 8 
RIGHT l;RT M-1,25; "1";AT M+1,25; 
"■": BRIGHT i; PRPER 7; INK 3; At 

4360 iF RND>,12 OR M > 18 OR M<4 T 
HEN NEXT X: GO TO 4230 
4370 RANDOMIZE USR 64153: : BORDE 
R 4: FOR Y = l TO 16: IF INKEY*=" 
" THEN BORDER 1: LET Y=RND: GO T 
4316 

4330 NEXT Y: BORDER 1 
4390 FOR Y=M TO STEP -1: PRINT 
BRIGHT 11 PRPER 7,; AT Y + " — 



.-.k. 3; AT Y,25, 
4400 FOR Y=25 TO .. 
T AT 0,Y+1; PAPER 1 
T 0,Y; "n" : NEXT Y 
4410 FOR Y=l TO M-2 



- NEXT Y 

STEP -1: PRIN 

■■■ INK 7;R 

PRINT PRPER 



l;RT Y-l.M;" "; INK 7jAT Y,l 
" : NEXT Y 
4420 RANDOMIZE USR 6421S: PRINT 
PRPER p 2; INK 6;RT M,M;"d";AT M+l 

4430 9 FOR YaM-3 TO STEP -1: PRI 
NT PAPER 1;AT Y+2-1* (Y=M-3I "" 
":RT Y+1,M;" "J INK 7; AT Y, . 
;AT Y + 1,M; (, P": NEXT Y: PRINT PAP 
ER 1;AT Y+1,M;" " ; AT Y+2,M;" " 
4440 FOR Y=M+4 TO 24: PRINT RT 
,Y-l; PAPER 1;" ";AT 1,Y-1;" "; 
INK 7;AT OjUj'-O-jAT l,Y;"p'': NEX 
T Y: PRINT PAPER 1 ; AT 0,Y-1;" " ; 
AT l,Y-l; " " 

4450 FOR Y=22-M TO 17: PRINT RT 
Y,24; PRPER 1; " ";AT Y-1.24J" " ! 
INK 7; AT Y,24;"0";AT Y + l ,24; "p' 1 
: NEXT Y: PRINT PAPER l;AT Y,24j 
" "j AT Y-1,24; ■' " 
4460 LET H=19: GO TO 4230 
6005 BRIGHT 0: PRPER 6: BORDER 6 
: CLS : INK 1: PRINT ' " IHR AUTFR 

RG 1ST ERFOLLT: SIE SIND ENTUE 

ICHT I I I™ 

6010 FOR S = -15 TO 40 STEP S: BEE 

P RND*RND,S: NEXT S 

6025 PRINT '"IHRE PUNKTEZAHL 1ST 

603S IF HSO0 THEN PRINT ' ' "DER 

SESTE SPIELER UON HEUTE 1ST: " 

; FLASH 1; INK 2; PAPER 7;BS 
6040 IF HSC>0 THEN PRINT BS;" HR 
T ■'JHSC;" PUNKTEN," 
6050 PRINT '"IHRE FLUCHT HRT IHN 

EN "JS-LU" LEBEN GEKOSTET , 

SIE HABEN RLSO NOCH ";LI;" LEBEN 

SBRIG." 
PRINT '"MIT DIESEM "JLI;" L 
EBEN KNNNEN SIE NOCH EINE ENTU 
EICHUNS UERSUCHEN." 

6070 POKE 23624,56: PRINT B0;"DR 
3CKEN SIE ""ENTER"" EIN F£R EINE 
NEUEN ENTUEICHUNG": PAUSE 0: RAN 
DOMIZE USR 64120: GO TO 1000 
7000 REM ENDE DES SPIELES 
Basic-Listing »Entweichen« (Forlsetzung) 
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7003 INK 5: PRPER ll BRIGHT 0: S 
ORDER 1; CLS : PRINT "ES TUT MIR 

LEID: 5IE HABEN DREI UEBEN UERS 
PIELT ! ! t " 

7010 RRNDOMIZE USR 64048: RANDOM 
IZE USR 64048 
7015 PRINT '"SIE HATTEN NUR DREI 

LEBEN, DRS SPIEL 1ST .ALSO ZUM 
ENDE." 

7020 PRINT ""SIE HABEN EINEN ""S 
CORE , " , ERREICHTUON; ",SC;" PONKT 



"SCORE"" SIND SIE DER BESTEN S 

PIELER UON HEUTE ! I ! GEBEN S 

IE BITTE 1HREN NRME . " : INPUT BS 

7030 IF H5C>0 THEN PRINT ' ' "HEUT 

E'S BE5TER SPIELER: "; FLASH ii 

ink a; PAPER 7; 6* 

7035 PRINT Bt; '' HAT "JHSCJ" P£NK 

TE ERREICHT." 

7040 INK 6: PRINT DROCKEN SIE 

BITTE ■'■'J' 1 " EIN UENN 5lE NOCH 
EIN SPIEL MJ2CHTEN SPIELEN." 
: INPUT US; POKE 23653,0: IF JJ= 
"J" THEN LET SC = 0: LET LI=3: GO 
TO 1000 

7650 POKE 33607,60: POKE 23506,0 
: REM ZURUECK NACH NORHALEN BUCH 
5TABEN . 
7060 6T0P 
9000 CLEAR 63999 

9O0S LET B*a"/": LET HSC=0:'LET 
L* = " i i i '■ : LET SC=>0: LET LI=3 
9010 FLRSH O: BRIGHT 1: OUER 1: 
INK 5: PAPER 1: BORDER 1: CLS : 
FOR X=0 TO 95: PLOT 125,80: DRAU 

125, X: NEXT X: FOR X = 125 TO 5 
TEP -1: PLOT 125,30: DRAU X , 95 : 
NEXT X 

9015 FOR X = TO 125: PLOT 125,80 
: DRAU -X,95: NEXT X: FOR X = 95 T 
O STEP -1: PLOT 125,80: DRRU - 
125 X' NEXT X 
9020 FOR X=B TO 80: PLOT 125,80: 

DRAU -125, -X: NEXT X: FOR X = 125 

TO STEP -1: PLOT 125,80: DRRU 

-X,-S0: NEXT X 
9025 FOR X=S TO 125: PLOT 125, S0 
; DRRU X,-S0: NEXT X: FOR X=30 T 
STEP -1: PLOT 125,80: DRRU 1 
25, ~X: NEXT X 

9030 OUER O: POKE 23624,225: PRI 
NT tt0;"UARTEN SIE BITTE UEIL DAT 
R I5T ""POKED"" . " 

9050 FOR N=15616 TO 16384; POKE 
(N+48984) , (PEEK N) : NEXT N 
9055 RESTORE 96O0 : FOR N= (64344+ 
(97*81) TO 64343+ (123*8) ; READ A 
: POKE N,fl: NEXT N 
9065 RESTORE 9500: FOR N=USR "A" 

TO USR "S": READ A: POKE N,R: N 
EXT N 

9070 FOR V=0 TO 14: RESTORE 1975 
2 + 2*Y) : FOR N= 164000+24*Y) TO (6 
4008+24*Y) ; RERD A: POKE N,A: NE 
XT N 

9075 RESTORE 9799: FOR Na<64009+ 
24*Y> TO (64023+24*Y) : READ A: P 
OKE N,A; NEXT N 
9080 NEXT Y 

9035 POKE 23624,95: INPUT 80: PR 
INT 80;"DrQcKen Sic < ENTER > ei 
n for eine Forsetzung des Prog 
rams . " 

9090 RRNDOHIZE USR 64096; IF INK 
EY*="" THEN RRNDOMI2E USR 64144: 

IF INKEYS="" THEN RANDOMIZE U5R 

64192: IF INKEYia"" THEN RANDOM 
IZE USR 64024: IF INKEY$="" THEN 

GO TO 9090 
9095 POKE 23624,56 
9100 INK 1: PRPER 5: BRIGHT 0: B 



PAPER 4; 



IN 



- 1.,.,.,, PAPER 5 
, INK 2; AT 1,12; "| ENTUEICHEN |" 
9110 PRINT INK 1JRT l,7i"F";AT 2 
,7;"G";AT 1 , 28; "£" J AT 2 , 28V'£" 
9120 PRINT : PRINT : LET a*="5ie 

sind falsch verhaftat, und des 
wagen mNchten Sie en twe i chen . " : 
GO 5UB 5800 

9125 PRINT : PRINT : LET a$="Um 
entmeichen zu tflnnen soLLen Sie 

versuchen vier verschiedene ""A 
uftrMge"" auszuffihren." : GO SUB 
9600 

9130 PRINT : PRINT : LET a*a"Die 
se vier AuftrMge sind geteiLt2be 
r vier 5chirnie.": CO SUB 9S00: P 
RINT : LET a$n"Sie mOssen also d 
urch vier var - schiecTene schirme 

gehan, damit Sie entweichen ku 
nnen,": GO SUB 9800 
9135 PRINT : PRINT : LET aj="Sie 

beKommen nur drei Leben aLsosei 
en Sie VorSiCht ! ! ! " : GO SUB 9 
800: GO SUB 9810 

9140 PRPER 4: BORDER 4; CLS : PR 
INT RT 0,10; PAPER 7; "SCHIRMJJIN 
S : " : P RINT INK 6J AT 1,10; "'ilm iililiii 

9145 PRINT : LET aJ="Sie Sind im 
Ho r des GefMngnis, und Sie sol 
ten die understen Steine des 
Mauers oberbringen (worn Mauer 
zum Mauer).": GO SUB 9800 
9150 PRINT : PRINT : LET a*="Abe 
r im Mitten des Hofes gibt s ein 
Qraben 2ber den 5ie springansoL 
len.": GO SUB 9S00 : PRINT : LET 
a*="Uenn Sie nicht springen, ert 
rin-fcen Sie und verlieren Sie ei 
n Leben.": GO SUB 9380 
9155 PRINT : PRINT : LET a« = ,- Neb 






ben 



bt es zwei 



Sch 



.-.. Sie _. 

cht dieser Scheinwerfer ste 
hen, verUeren Sie wieder einLeb 
en.": GO SUB 9800: GO SUB 9810 
9160 PAPER 5: BORDER 5: CLS : IN 
K 1: PRINT AT 0, 1 0; "SCHIRM Z UEI" 
: PRINT AT 1, 13; "■^^^^' , 
9165 LET a*="Si£ sind in einem I 
rrgarten an- gekomrten. in diesem 
Irrgarten gibt es PgnKte, sie 
solien atLe ponKte auTessan, je 
schneLLer Sie dies machan, je 
qrNPer der Bonus.": GO SUB 980 

a 

9170 PRINT : PRINT : LET a$="Uen 

n a 1 1 e pan Kte verschwunden sm 

so I Len Sie zuerst zum Ein- gan 



rtens gehen 



aid 



aus den 
KNnnen." 



ers 



gang . Da mi . _. 

ten entwaichen KNnnen.": GO SUB 
980B 

9175 PRINT : PRINT : LET a(="ACh 
tung ! Uenn all* POnKte ver 
scMuunden sind, werden die KO r 
ridoren a bgas ch lossen . Sie mfis 
sen sich beei Len zum Ausgang.son 
st 1st er varsperrt . " ; GO SUB 9B 
00: GO 5UB 9810 

9180 PAPER 0: BORDER 0: CLS : BR 
IGHT 1: INK 7: PRINT RT 0, 10; " 5 C 
HIRM DREI"; AT 1 , 10; "^^^^"■™^" 
9185 PRINT : PRINT : LET ; 



iesei 



Sch 



r m gibt 



.- Sie _- .... . 

GO SUB 9300 

9137 PRINT : LET aS= 



SOLL 
Uflhre 



Bro 
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en.": go sus 9S0B 

9190 PRINT : PRINT : LET 3*="Uen 
n die Brficha fartig isi sol 
Len Sie, wenn ein Leu Ch t b li tzkom 
ml, von der Brocke ins rota boo 
t springen.": GO SUB 9300 
9195 PRINT : LET a$="Uenn Sie ni 
c h t richlig springen veriieren S 
ie wieder ein Leben.": GO SUB 96 
00: GO SUB 9810 

9205 PAPER 6: INK 1: BRIGHT 0: B 
ORDER 5: CLS ; PRINT RT 0,10; "5 C 
HIRM UIER";RT iia; ""**"****"•' 
9210 PRINT : PRINT : LET a*s"Auf 
diesem Schirm gibt es sine Tre 
ppe. Uenn Sie oben ange kommens i n 
d, sind Sie entweicht I": GO SUB 

9ai5 print : LET a*n"Rber, von d 
ieser Treppe re lien Batten, uen 
n Sie von einem dieser BJU t 
e getroffen werden veriieren 5 
ie ein Leben. 5ie fcDinnen dies 

verhoten durch in die HJShe zu 

Springen."': GO SUB 9800 
9220 PRINT ; PRINT : LET a$="Dan 
— kUnnen Sie gepacktwer 



de 



n e 
en Leuchbl 
kNnnen dies vers 
ie HNhe zu sprii 
" 50 SUB 9S10 



Robot iei 



GO SUB 9 



9325 BRIGHT 0: PRPER 2: BORDER 2 
: CLS : INK 7: PRINT AT 0,5; "FUN 
KTJC0NE^^EP k ^fi5TEN , ';RT 1,5; "^~" 

9230 PRINT '"5CHIRM 1: hinunter: 
5 ";TAB 10;"herauf: 7";TRB 10 

; "springen: ""SPACE 

9235 PRINT "SCHIRM 2: hinunter: 
6";TAB 10; "herau r" : 7";TRB IB;" 
nach links : 5"; TAB 10; ''nach rec 
htS: 8" 

9240 PRINT "SCHIRM 3: hinunter: 
6";TRB 10;"herauf; 7":TRB IB; " 
nach links : 5"; TAB 13; "nach rec 
his: 8";TAB 10;''5tein aufziehen: 

9";TRB 10; "springen : 4" 
9245 PRINT "SCHIRM 4: hinunter: 
6"; TAB la; "herau f : 7"; tab 10; " 

springen : ""SPRCE 

92S0 POKE 23624,31: PRINT ;H0;"D 
roeKen Sie <ENTER> ein for den R 
nTang des Programing . " : PRU5E 0: 
RANDOMIZE USR 64120: POKE 23606. 
88j v _POKE 23607^25 1 : GO TO 1000 

REM 

9507 DATA 255,16,16,15,16,15,16, 

16: REM B 

9509 DATR 255,1,2,4,4,8,8,16: RE 

M C 

9B11 DATR 0,0,0,31,31,31,31,31: 

REM D 

9513 DATR 31,31,31,31,0,0,0,0: R 

EM E 

9515 DATA 0,14,30,126,4,30,31,53 

: REM F 

9517 DRTA 255,207,143,27,27,27,2 
43, 103: REM G 

9518 DRTA 0,3,3,3,3,4,0,0: REM H 
9520 DATR 1,3,7,254,254,254,254, 
254: REM I 

9522 DATA 0,192,192,224,240,124, 

126,254: REM J 

9524 DRTA 223,155,27,27,27,27,63 

255' REM K 
9526DATA 1,2,7,31,31,63,63,127: 

REM L 

9527 REM DATA FUER BUCHSTABEN 

9528 DATA 68,0,56,4,60,68,60,0: 
REM M 

9530 DATR 68,0,56,68,68,68,56,0: 



9534 DRTA 0,60,56,78,56,55,76,54 

9600 REM DATA FUER 2. CHAR SET 

9505 DRTA 192,224,240,240,240,25 

2,254,255: REM a 

9507 DATR 7,15,31,63,127,255,255 

,255: REM b 

9609 DATR 224,240,248,252,254,25 

5,255,255: REM C 

9611 DATA 1,3,7,15,31,63,127,255 

: REM d 

9613 DATA 126,192,224,240,248,25 

2,254,255: REM a 

9515 DATA 0,0,3,0,60,127,255,255 

: REM f 

9617 DATA 255,254,252,248,240,32 

9S19 DATR 255,127,63,31,15,7,3,1 

: REM h 

9521 DRTA 56,66,16,124,122,186,4 

0,44: REM e 

9623 DATA 255,255,253,249,241,22 

5 193 129' REM j 

9625 6aTr' 56,50,56,25,18,53,124, 

25S: REM K 

9627 DATA 124,124,124,108,204,20 

4,204,233: REM I 

9629 DATA 192,240,56,31,31,56,24 

3,192: REM 10 

9631 DRTA 24,24,24,50,126,162,19 

9633 DATA 28,124,28,24,136,183,1 

24,50: REM 

9635 DATR 60,124,108,108,108,108 

,236,220: REM P 

9637 DATR 3,3,5,6,6,3,1,1: REM q 

9539 DATR 3,7,3,3,3,3,3,2: REM r 

9541 DATR 224,240,48,48,48,43,56 

,172: REM S 

9643 DRTA 255,129,129,129,129,12 

9,129,129: REM t 

9545 DATA 129,129,129,129,129,12 

9, 129,255 

9647 DATR 36,34,34,68,63,34,34,1 

7: REM v 

9649 DATA 60,126,255,255,256,255 

,126,50: REM uj 

9651 DRTA 255,56,56,56,56,124,25 

4,255: REM X 

9653 DRTA 16,16,16,16,146,64,66, 



9754 DATA 1,200,10,33,5,0,17,10, 



9756 DRTA 1,103,95,33,100,0,17,5 

0,0 

9758 DATR 1,40,30,33,25,1,17,50, 



9760 DATR 1,7,30,33,37,3,17,5,0 

9752 DATA 1,10,30,33,24,1,17,1,0 

9764 DRTA 1 , Ik? , 7 5 . Z i-i ,3 ,." : ,l.Q 

9765 DAT'-; -. ; » ? : :±~, .■■:-, i; . £ . :. ? ; 5 , ?. 
9768 DATA 1,1,205,33,10.0.17,5,0 
9770 DRTA 1,2,111,33,0,1,17,1,0 
9772 DATA 1,200,100,33,90,1,17,0 

9798 REM DRTA FUER MUSIC 

PROGRAM 

9799 DflTfi 229,213,197,205,181,3, 
193,209,225, 125, 145, 111 , 16,242,2 

9300 FOR N=l TO LEN At: PRINT AS 
(N) ; : NEXT N: RETURN 
9310 POKE 23524,31; PRINT ; »0J "D 
rocnen Sie <ENTER> ein for eineF 
ocsetzung des Programns, : PAUSE 

0: RANDOMIZE USR 64120: RETURN 
Basic-Listing >-Entweichen« (Schluli) 
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Defender 

Da fliegt man nun friedlich gesinnt 
durchs Weltall und wird doch tatsach- 
lich angegriffen. Pazifisten konnen 
ausweichen, Sie diirfen sich wehren. 

Wenn Sie mein Programm geladen haben, erscheinen auf 
dem Bildschirm am oberen Rand 12 felndliche Aliens die sich 
von rechts nach links bewegen. Plotilich bricbt ein leindliches 
Raumscbiff aus und versucht Sie mit Bomben zu treflen. In die- 
ser Spiels ituation haben Sie nur die Moglichkeit ihre Raumba- 
sis mit den Tasten 5 nach links und der Taste 8 nach rechts zu 

Sie konnen ibm also nur ausworcnon. ihn -ibui nichtvernich- 
ten. EtsI wenn der Angreifer verschwunden ist konnen Sie mit 
Hilfe der Taste 7 auf die Invasoren schieBen [immer nur ein 
SchuB). Da die Angreitet immer naber auf Sie zukommen, wird 
das Spiel mit der Zeit immer schwieriger. Schaffen Sie es alle 
Aliens mit ihren 3 Raumbasen abzuschieflen erscheinen neue 
eaberjetztschon sebr viel tiefer fliegen. 



felon iunkiioneri bsirr: -3pic! Defender 
"5" nach links 
"8" nach rechts 

Oas Programm "Defenders kann mit >SAVE"DEFENDER" 
LINE 1 * aufgenommen und von Kassette mit LOAD geladen 

(A. Hen rich! 



High- Score Punktzahl 

Punktzahl im Spiel 

Anzahl der vorhandenen Raumbasen 

Variable fur die AnfangshShe in der die Aliens 

fliegen. 

Variable der Hbhe der oberen Reihe der Inva- 



= Variable der Hbhe der ui 



in Reihe der Inva- 



Koordinaten der Raumbasls 
Koordinaten der Rakete der Raumbasis 
y-Koordinate der einzelnen Angreifer 



Variabledefinition fCir das Programm Defender 



10- 


41 


USER-Grafik wird festgelegt 


45- 


7C 


Variabledefinition 


140 




Tastaturabfrage der Taslen 5 und 8 
(Inks — rochts) 


160- 


290 


Darsteiiung der Raumbasis und der 1 2 
invasoreri auf dem Bildschirm. 


195 




1<i:>i<ilii' ili'rage der Taste 7 
(Fo.jortflste) 


300- 


360 


Rowegung des angretfenden Aliens, 
der aus derStaffel feindlicber Raum- 
.iinMt- ;iusbricht 


510- 


570 


Bombenabwurf auf die Raumbasis und 
nochmalige Tastaturabfrage der 
Tasten 5 und 8 


1500- 


1510 


Abzug einer Raumbasis 


2000- 


2050 


Spielende mit Anzeige des High-Score 
und der Frage nach einem weiterem 
Spiel. 


5000- 


5180 


Bewegung der abgefeuerten Rakete 

der Raumbasis. Mit Uberprufung, ob 
ein Treffer erzielt wurde. 



i_IUE = 2 SCORE-SB 


H.SCORE=50 


&.&&/& 


* /*. 


* A 


A 


* 




lAj 


LIVE=1 SCORE=100 


H.SCORE=50 


W * W * 




w ■* w 




u&j 


LIUE=a SCORE=250 


H.SCORE=250 


* A * * 


*. 


* 


^ 


W 




mm 





Typische Spielszenen 



Die einzelnen Program ma bschnittes des Spiels Defender 



RXEL HENRICI 



10 FOR a=USR "a" TO USR "i , '+7: 
RERD b: POKE a,b: NEXT a 

20 DflTfl 0,0, 192,192, 193,327, 25 
5,255,24,24, 126,255,231,128,231. 
255,0,0,3,3,131, 199,255, ESS 

30 DflTR 135, 193, 99, 31, IS, 3, 4-, 2 
4,225, 131, 193,24.3,240,192,32,24. 

4-0 DRTR 7, 1 ,3. 3 1,63, '39, 196, 14-8 
,224., 128, IBS . Hi.? ..=:?.=: ■ i.98 . 35 . 4.9 , 2 
4,24,24,24 .24,24,24,24 
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4-1 DATA 133,44., 1S1, 92,59,220,4 
4,31 

45 LET hi -8 

50 BORDER I: PAPER I: INK 7: C 
LS 

S2 LET Lo=«: LET q = l; LET n3; 

LET UVS-3: LET £um.0 

55 PRINT PAPER 4:fiT e,0;"LtUE« 
SCORE* H. SCORE* 

60 LET o=i3: LET Ul*l: LET X*31: 



="QE": L 
Lit ««= 



78 LET a**"M": LET I 
ET C*»"fl§": LET d**"BE' - - 

"s'LET 9*""flf^ LET bi»«"fi£"; L 
ET ii«"fil" LIT J«="al" : LET K*» 

nhl'LET m» = ~F5*: LET n«»"£a": I 
- .-"PS": Lff e*-"S" : LET qt 



..Bj. 



. : 5LEf'B* = ,, S5 T7 : LET t« = "£S": L 



|."E4" 



"Efi": LET }■■.> 
108 PRINT AT -.,*, 
185 PRINT PAPER 4:RT 3,0;"LIUE= 

SCORE- H. SCORE* 

118 PRINT PAPER 4;RT 8,SJ UVtjfl 

T 8,14,£um; AT 0,2S;hi 

140 LET y=y + aNKEY*."S" RND y <2 
8) - IINKEYJ* *5" AND y>l) 

150 PRINT INK 5, AT X, «;*'*§£" 

180 PRINT INK 4;AT q , w ; aTTAT q , 
Ui+*;b«;AT q,w+S; c»;RT q,w + 12;<i*; 
AT q,U+16;tj;fiT q,w+28;f* 

198 PRINT Ink 5; AT r,uj;9*;AT r, 

w+4;h*;AT r,ia+S;i*;RT r ,m+l2; j(, 

-- ki; AT r,u+aa; is 

KEYi*"7" THEN GO 



195 IF INKE" 



THEN GO SUB 8 



196 PRINT AT _ . , 

280 PRINT AT q,w;" " ; RT q,i* + 4 



i ,«i'12; ' 
,mi g,w+l6:" ";AT q,ui+20;" 
218 PRINT RT r.uii" ";AT r,u»+4; 
" ";AT r,w+B;" '':PT r,»+lSj" 
";AT r, un-16;" " ;AT r,uj+28;" " 
aaa let w*m+a: if w*9 then let 

ml: LET f-r + I: LET q*q + l 
238 IF r = 19 THEN GO TO 1083 
360 PRINT INK 4JRT ■,I|J»§.;HT «, 

w+*;n(;AT q,ui+3;oj;AT q,ui + 12;pS; 
rt q,w+i:.- aft . :■. ~ae; r« 

270 PRINT INK 5J RT r,W;SURT r, 

w+4;t*;AT r ,w+S; u); RT r,ui + 12;u*; 
RT r ,ui + 16;id*; RT r,ui+20;x* 

375 GO SUB 308 

330 PRINT INK 4; RT %,*i" "}KT 
q,iH+4;" ";AT q.W+S, " : AT o.u + 

12; " "; AT q,w+16; " 



AT q 

290 PRINT INK 4,'RT 

■■ "; RT r.w+8, - , 
at r ,w+l6; " ";at 

295 GO TO 180 



13; 



AT i 



■; RT 



360 LET S-r: LET 9 ■(* +(B 

310 PRINT INK 2; BRIGHT l;AT S, 
g;"OE": BEEP 1/108,5: PRINT INK 
2: BRIGHT 1;AT £,9;"F£": BEEP 1/ 
100,9: PRINT RT S,9J " " 

320 LET S"S+1 

330 IF g >y AND E<18 THEN LET 9= 
9-1 

3*0 IF 9<y RND £413 THEN LET §» 
9 + 1 

345 IF 10=12 THEN LET UVC'tiVG 
+ 1: LET 1.0=13: LET q=3: LET r =5 : 

LET 3um=5Uro+500: CL5 : GO TO 55 

34S IF 10=25 THEN LET LiV«*Live 
+ 1: LET 1.0=26: LET qa5: LET r =7 : 

LET sum-iom+see: CLS : GO TO 55 

353 IF 9=y THEN PRINT INK 3; BR 
IGHT 1;AT S,9;"ffi£": GO SUB 500 

360 If *«5i THEN RETURN 

370 GO TO 318 

510 FOR asfl + 1 TO 20 

515 PRINT INK 5; RT X.yi" 

533 PRINT INK 3;AT a ,fl ; "H" 

533 IF a + l*x AND g =y THER GO TO 

1500 



535 LET y=y + tINKEY*"'"6" AND y<2 
6) - ilNKEYi^S" AND y>l) 

536 PRINT INK 5;AT X ,y J ,, fl££" 

558 PRINT AT a,g; " " 

568 NEXT a 

565 PRINT AT s,g; " 

570 RETURN 

1000 PRINT AT 13,2; "Dia Invasion 

1500 LET Livt=liv«-1: BEEP 1/100 

,40 

1510 IF live<*0 THEN GO TO 3338 

1530 GO TO 536 

2000 IF jum'hi THEN LET hi=sum 

2B10 PRINT AT x,y;"£ri" 

2020 PRINT PAPER 4 : RT3 , Sj I i V* J R 

T 3, 14; sub; RT 0,23;hi 

2030 INPUT "NEU GRME iy/n)?";z* 
20*0 IF Z*="y" THEN GO TO 50 
2858 GO TO 9808 
5818 LET 0=X-1 

5828 PRINT INK 6; RT O.yj'H.": BEE 
P 1/1830, 0*3 

5338 IF o-l=q RND lyntw OR y-iii + 1) 
THEN IF ii»*B*'* THEN PRINT RT q 

.•ili-iX'-; BEEP™/10,-10: LET LO-L 
+ l:~ET SUK = sym + 100: LET *«■■' 
": LET nil." "; RETURN 
5848 IF o-l=q RND (y=w+4 OR y=m+ 
5) THEN IF bS = "Cf THEN PRINT RT 
q,w+4; "SI" ; BEEP 1/10,-10; LET 

LO = LO + 1:™ET Ium^SUM+100; LET bf 
=" ": LET ni»" ": RETURN 
58B0 IF 0-l«q AND (y=w+6 OR y=w+ 
9) THEN IF e«="fif" THEN PRINT AT 
q,m+S; "££■' : BEEP 1/10,-13: LET 

Lo = Lo+l:^ET sgm-surd+180: LET CC 

*" : LET O**" " : RETURN 

3863 IF o-l=q RND (y-U+12 OR y =w 
+ 13) THEN IF d(»"fie ,, THEN PRINT 
RT q,m+13; "II" : BEEP 1/18,-lB: L 
ET 10*10+1: LET sun =sum +130 : LET 

d*-" ": LET PS*" ": RETURN 
5370 IF 0-l«q RND ly=u + 16 OR y =uj 
■-• THEN IF e*="OE" THEN PRINT 
- ■■-,; "IT": BEEP 1/10,-13: L 
1;"eT SUM=£Um+100: LET 
LET q(=" " : RETURN 
. IF 0-l=q AND ly-W+30 OR y =W 
__. THEN IF fts"DE THEN PRINT 
AT q,li+a0j "il": BEEP 1/10,-10; L 
ET 10 = 1.0 + 1: LET £UB =£Um + 100 : LET 
f*»" "I LET r(*" ■': RETURN 

5090 IF o-l-r AND ly»ui OR y»w + li 
THEN IF a« = "M" THEN PRINT AT r 
.»i"JBt"; 6EEP"/10,-10: LET 1.0 = 1 
0+1: LET £Um=£UB+50: LET 9<*" 
: LET S«=" ": RETURN 

5108 IF o-l=r AND <y=w+4 OR U=w+ 

— ■' THEN PRINT _f T 



AT q,i 
ET lr 

5388 



THEN IF I 



#'+T;" "&"': BEEP 1/10,-13: LET 
:L0+1:"ET iUll=3um+50i..LET ' " 



. LET t*. 
5110 IF 0-l = i 
B) THEN IF i! 
r,w+3; "U" 



" " : LET I . 
5120 IF 0-l=r 
— ■ THEN IF . 



•* 

: RETURN 

AND (y*u+8 OR y=u + 

"D£" THEN PRINT AT 

_iEET 1/13,-10: LET 

LET surB-Sum+S0: LET i * = 



e ,u+12; "II"; BEEP 1/10,-10; L 

L0*L0 + i:"ET ium=.sUW+B0: LET 



: LET V$; 
o-l = r Af 



+17) THEN IF : 

RT r 
IT I 

5143 - 

+31) THEN IF L* 

RT r ,11+28; 



RETURN 
u=m+ia OR \. .. 
THEN PRINT 



LET WS= 

-i«r an 

i if r 

0; "II" 

+ 1: LE 
L* = " "I LET X$ = ' 
5168 IF <q THEN 
5170 PRINT AT 0,y, 
5180 GO TO 5030 
9000 5T0P 

Basic-Listing » Defender" (SchluQ) 



DE" THEN PRINT 
iCEP 1/10,-10; L 

um=sum+50: LET 

": RETURN 

ND (y*U+30 OR y=w 

= "0E !T THEN PRINT 

;EEP 1/10,-10; L 

UI>=SUKl+53: LET 

: RETURN 
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Spiele-Listing 



Anaconda ... 
... Oder Fiitte- 
rung der 
Raubtiere am 
Beispiel einer 
Schlange 

Ein Schlangenspiel mit konsequenter 
Nutzung der UDGs, die im Listing als 
Buchstabe mit einem Strich darunter 
ausgedruckt wurden. 

Nachdem das Programm geladen wurde. erscheint dasTitel- 
bild. Sobald man eineTaste gedrticki hat. kann man die Tasten 
wahlen, mit denen man spielen mochte. Danach beginnt das 
Spiel. Es handelt davon. eine immer langer werdende Schlan- 
ge durch ein Labyrinth kriechen und blinkende Punkte auffres- 
sen zu lassen. Nach einer gewissen Zeit wird ein Bonus zuden 
Pimkten addiert und eine neue Spielstufe beginnt. SobaJd sich 
die Sen Ian ge nicht mehr bewegen kann Oder alie 5 vorhande- 
nen Labyrinthe geschafft sind. igt das Spiel zu Ende und man 
wird zu einem neuen Spiel aufgefordert. (S. Gleissner) 



1 REM ANACONDA 

£ REM © by SIMON GLEISSNER 

3 REM 17. S, 1934- 

4 PRINT BT 10,10; FLASH l; "I 



GO ' 



LET ■ 



=208: LET q 



. . >1 THEN GO TO 24 

29 CLS : PRINT AT 3,0; 

i": RT 4,0; "<"; e*; " 



9 LET h: 
2=13; LET q5: __ 

IB dim a ciaaa) : dim ptieoai 
20 BORDER 0: PAPER B: INK 7 : C 
LS s PRINT AT 0,0;"FR£XE TASTENU 
AHL FUER RICHTUNGS-AENDERUNG DER 

SCHLANGE'' 

£1 INPUT "Oben '■;£(: IF LEN es 

<>1 THEN GO TO 21 

22 INPUT "Untfin ";b«: IF LEN b 
4-;>l THEN GO TO 22 

23 INPUT "RechtS ";cj: IF LEN 
t|»l THEN GO TO 23 

, 2 t JNEI-! T _- L i!I! K s J " ;d * ; 1F LEN d 

.,io; "ANACGND 

Oben"; AT 6, 

AT 8,0; "<";d 

ij "> Links"; AT 13,8; ■' -", c[; " > 
SChtS 1 ': FOR w = l TO 130: NEXT W; 

PRINT AT 1S.B; ''Bi tt« eine Taste 
druecKan" : PAUSE 

""" "0 TO 651 

em m\ AUFL _ 

SB FOR Ti0 TO 7 

60 READ n 

70 POKE USR ,, a" + t J n 

80 NEXT t 

90 DATS 50,126.219,255,255,219 
,125,60 
100 FOR t=0 TO 7 
105 READ n 

110 POKE USR "f' + t.n 
120 NEXT X. 
130 DATA 60,126,219,126,60,24,0 



143 


FOR t=0 TO 7 




150 


RERD n 




160 


POKE U5R "C"+t ,n 




170 


NEXT t 




180 


DATA 0,0,24,60,126,219. . 


60 






190 


FOR t=0 TO 7 




200 


READ n 

POKE USR "d^'+t-ri 




210 




220 


NEXT t 




230 






,112 


32 




243 


FOR t=0 TO 7 




250 


READ n 




260 


POKE USR ,, *"+t,n 




270 


NEXT t 




230 


DATA 4,14,23,63,63,23 14,4 


290 


FOR t-3 T6 7 




300 


READ n 




310 


POKE USR "f"tt,n 




320 


NEXT t 




330 

340 






FOR t=0 TO 7 




350 


RERD n 




360 


POKE USR "g-*\ ,n 




370 


NEXT t 




380 
4 
390 






FOR t=3 TO 7 




400 


READ n 




410 


POKE USR "h"+t ,n 




420 


NEXT t. 




430 

440 


DATA 0,0,240,255.255,240,0, 


FOR t=B TO 7 




450 


READ n 




460 


POKE USR "i "+t,n 




470 


NEXT t 




480 


DATA 0,0, 15,255,255 


15,0,0 


500 


REM MM IRRGARTEN 

...... 7 




510 






RERD n 




530 


POKE USR "J"+t ,n 




540 


NEXT t 




541 


GO TO 3000 




550 


DATA 255,153,153,255,255,15 


3,15 3,25 




651 


LET py=0 




600 


IF q2 = B THEN FOR W * 


TO 300 


: NEXT HI: PRINT PAPER 6; 


INK 0;A 


T , 0; "Gesam t e Puni, tezah 






";AT 0,19,pu: GO TO 4100 


601 


IF q6 = 10 THEN 50RDEF 


0: PAP 


ER 


INK 7: CL5 




632 


IF q6=8 THEN BORDER 


6 


PARE 


R 6: 


INK 1: CLS 






603 


IF qfiaS THEN BORDER 


2 


PARE 


R 2: 


INK S: CLS 

IF q6=>4 THEN BORDER 






604 


7 


PflPE 


R 7: 


INK 3: CLS 






605 


IF q6"2 THEN BORDER 


6 


PAPE 


R 6: 


INK 2: CLS 




505 


PRINT AT 3,3 s IF q6 


8 THEN 


GO TC 


811 




639 


REM d*'A" » m Graphi .. 


-Modt 


610 


PRTNT Af 1 .01! "JJJJJJJJJJJJJ 


^p^P; 


J 


63~0 


PRINT AT 3,a; ;r J JJJ~ 


J JJJJ 


j jj jjjjj j jj„ij j" 
640 PRINT AT 475; ^J J 




ssa 


PRINT AT 5,S;*J. a( JJ 

prtnT RT*%,»;*a J. *J* 

PRTHT St",S;^j J JJ 

SRINT aVtJ,3;*J J JJ 
J JJJJJ JJ j/ 

FRTfiTfiTB\8;*J 


J JJJ 


SM 


■J jjj 


"675 


J 


>$ 


JJJJJ 


~655 




jj 




Basic-Listing »Anaconda« 
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738 PRINT AT 10, 0; 

7IB PRlHT flf 11,5; 
720 PRINT RT 12,0;' 
738 Print AT 13,0"; " 

74.8 PRINT AT 14, Bj" 
750 PRINT AT lS,B; 
760~>RINT AT 16, 0; 1 

J! T78^PBirNT' i flT~l7 , 3 : ' 

788 PRlRT~flT lS.SV 
T^^PfflRT RT 19, aV 
SairpfflNT TST^ b® , 5; j 

818 PRIRT RT 21,0 



4 J. JJJJJJJJ 



^M-^J^l ^ 



\4 tl&MJJAl *L 




~33 y 3 2 ; 

! j jj ^ 3 4 i .... 

"T j jtJ J JJJ J J3J 

i -jj-j j 33 3 



815 PRINT RT 1,0; ' YJJJJJJ j-ij jy -J 






*• PRINT RT 



16: IF q6»2 
•-•.IB 



1=,~: CHRS 147 

850 LET ul=2+INT <RND*19) : LET 
U2.1+INT <RND*30> : IF 5CREENS (U 
l,ua> <>" " THEN QO TO S5B 

368 PRINT RT Ul,u2; INK 4; PRPE 
R 2; FLASH li " " 

878 LET 0(1) =1:1 ■ I FT nfSI.H- I 
ET Pill x!7: LET . . 

THEN LET (1) =10: LET 

871 LET qlsli LET q3=^ 

872 LET q4i2; LET q5 = l 
830 RESTORE 908 

881 READ VVljVuS: IF VVl*2B0 TH 
EN GO TO 981 
362 BEEP Uvl,W2: 00 TO 831 
900 DATA .25, -5, .5, B, .25,8, .25, 
2,. 5, 4,. 5, 0,1,7,. 5, 4,. 5, 4,. 5, 5,. 
25,7, .25,5, .25,4, .25,5, .5,7,-25, 
2, .25,0, .25.3. .=!.-,. i . .S.S, .5,-5, . 
5,0, . 25 . 0,-25, 2, .5,4, .5,8,1,7,-5 
, 4 , . 5 , 4 , . 2 = , ~. , „ 23 .7 25 , 4 , . 25 , 5 , 

.75,2, -a;, a, i.s-3 .e .208,0 

999 PRINT RT 8,0; " __ 

1080 REM m SPIEL 

1001 LET X = 18: LET y = ll: IF q6=2 
THEN LET y = 10 

1002 LET a=0: LET 6=1 



1305 PRINT AT 0,0; "PunUte : " , FLR 
5H l;hi : GO TO 2B00 

1010 PRINT AT 0,B;PU: LET a*=INK 
EY*: IF 33=di THEN LET b = -l 
1&20 IF a* = 4* OR aS=CS THEN LET 



1063 IF youl OR X OU2 THEN GO T 

1064 BEEP -05,16: BEEP .05,17: L 
ET pu=PU+5a 

1B65 LET ul=2+INT (RND*19) : LET 

U2=1+INT <RND*3S) : IF SCREEN* (g 

1 ,u2i = " " THEM SO TO 1067 

1066 GO TO 105S 

1057 PRINT AT Ul,u2; INK 2; PAPE 

R 4; FLASH li" " 

2000 IF SCREEN" (yia ,x-fb) ■" " TH 

EN GO TO 2B02 

2BS1 GO TO 1010 

2010 LET y*y+.a: LET X=X+b 

2020 IF b-1 THEN PRINT ftT y,XJ I 

NK 4;CHR* 147 

2B3B IF b=-l THEN PRINT AT y , x ; 

INK 4iCHRi 143 

2040 IF a*l THEN PRINT RT y,x; I 

NK 4;CHR$ 145 

2050 IF a=-l THEN PRINT RT y,x; 

INK i;CHR* 146 



inf. «.; ui-ihs ii 
2060 PRINT RT 



01,0 



INK 4;CHR 
= " " THEN 
=" " THEN 
=" " THEN 



2130 IF SCREENS 

GO TO 2200 
2110 IF SCREENS 

GO TO 2200 
212B IF SCREEN* 

GO TO 2200 

2130 IF SCREENS (y,X-l)»" " THEN 
GO TO 2200 

2131 LET q=.0 

2140 FOR t=12 TO 36 5TEP 2: 80RD 

ER INT (RND*8) : BEEP 0.081, t: Ne 

XT t: LET q=q+l 

2158: FOR t=36 TO 12 STEP -2: BO 

RDER INT CRND43J : BEEP 0.081,1: 

NEXT X: IP K=3 THEN GO TO 2140 

2160 BORDER 0: GO TO 4100 

2300 LET 0(q3!ay: LET p Cq3) = X : I 

F q3 = tt THEN LET U=tt + 197: LET 



"jAT 0,0; FLASH 1; "P. : ";pu+ 
INT (pg/ 100*20! , " 3CHUS 120X) : "; 
INT (PU/100*20) : LET pu=pu+INT I 
PU, 100*201 : FOR U=-20 TO 40: BEE 
P .01,u: NEXT u: GO TO 600 
2310 LET q3=q3+l 

2320 IF q2=0 THEN LET q2=q6: GO 
TO 2500 

2330 LET q2=q2~l 

2331 PRINT AT q4,q5; 11 " 

2340 IF p Eql) <P tql+1) THEN PRINT 

INK 4, AT O (ql) ,p (qlJ ;CHR( 152 
2350 IF p (ql) ;■ p iql+li ' THEN PRINT 

INK 4: AT o {ql) . p ton : CHRS 151 
2360 IF CqlJ >0 Cql+1) THEN PRINT 

INK 4JRT o iqll ,p <qi) : CHRS 150 
2370 IF O (ql) (0 tql+1) THEN PRINT 

INK 4; AT fql) ,P (ql) ; CHR* 149 
2380 LET q4=0 (ql) : LET qS=P (ql) 
2400 LET qlcql+1 
2500 LET pu=pu+l 
2600 GO TO 1010 
3000 REM ■■ prhri Mzuo 
3010 BORDER ( 



PRPER i 



INK ■ 



Basic-Listing "Anaconda" (Fbrtsetzung) 
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DRAU 10,10: DRAU 18,-10: DRAU 
,-30: DRAU 0,20: DRflU -20,0 
3030 PLOT 40+5,130+5: DRflU 0,4-0: 

DRRU 10,-10; DRflUJ 0,-20: DRAU 1 
0, -10: DRflU 0,4.0 
304-0 PLOT ?0+S,130+£: DRflU 0,30: 

DRflU 10, IS DRSU 13. -IB: DRAU 
,-30: DRfiU 0,20: DRRU -30,0 
30S0 PLOT 120+5 , 140+S : DRflU -10, 
-10: DRflU -10,10: DRflU 0,20: DRA 
U 10,10: DRRU 10,-10 
3060 PLOT 150+5 , 14-0+s : DRflU -10., 
-10: DRflU -10,10: DRRU 0,20: DRR 
U 10,10: DRflU 10,-10: DRflU 0,-20 
3070 PLOT 160+5, 130+S: DRflU 0,4-0 
: DRflU 10,-10; DRflU 0,-20: DRflU 
10, -10; DRflU 0,4-0 

3030 PLOT 190+S, 130+S: DRflU 0,40 
: DRflU 10,0; DRRU 10,-10: DRflU 
,-20: DRflU -10,-10: DRRU -10,0 
3090 PLOT 220+S, 130+S; DRflU 0,30 
DRRU 10,10; DRflU 10,-10: DRflU 
™ DRflU -20,0 



iu. DRRU I 
3100 NEXT 5 
3110 PRINT AT 15,5; ' 
LCI55NER" 

3115 PRINT AT 19,1; ' 
Sie Sich durch die 
und erreichen Sie 
PunKte" 



I by SIMON G 



31S0 _ 

3121 RESTORE 314-0: FO 
READ <S) ; READ p l£ 



=1 TO 55 

NEXT S 

3140 DflTR 0,0,0,1,1,1,2,1,2,2,2, 
3,2,4,1,4,0,4,0,5,0,6,0,7,0,8,0. 
9,0, 10,1, 10,2, 10,2, 11,2, 12,2, 13, 
2 , 14 , 2 , 15 , 2 , 16 , 2 , 17 , 2 , 18 , 2 , 19 , 2 , 

20,1,20,0,5:- .;.:,:: 

0, 15,0, 14,0, 13,0,12,0, 11,0, 10, 1 
9,2,3,2,7,2,6,2,5,3,5 
2,3, 1,3,0,3, -1,2,-1,1 



'. 10,2 



6to'3'!: 



RT 
T w 

3199 LET v=0 

3200 FOR S=l TO 56 

3205 IF s=l THEN PRINT tfT 17,4; 
INK 7; "17.9.84 "; HT O (55! +14 , P (56 

j +S; Ink 4,chrs 13a;fll 

p (551 +5; " '' : GO TO 3220 
3210 IF o(t-lXoiS) THEN PRINT A 
T (S-1) +14.-P :s-l- ---B: CHR( 14.0; I 
F s<>2_THEN PRINT RT 0<s-8)+14,p 

.) >0 (S) THEN PRINT A 

■ (5-1) +5; CHRS 150: I 
'RINT AT O Cs-2) +14, p 

.) >p (S) THEN PRINT A 

■ (S-l) +5;CHR« 151; I 
'RINT AT (S-2) +14, P 



3212 IF p is- 
T (s-l) +14, 
F 5 <>2 THEN 



-1! <p (a) THEN PRINT ( 
. . _-,P (S-l) +5; CHRS 152: 
F s<>2 THEN PRINT AT 0(5-21+14,1 
ls-2)+5," " 

3214 IF B=2 THEN PRINT AT 0t56) 
14, P (56) +5; ■' " 

3230 LET sl=fi+10: IF 6l>56 THEN 
LET Sl=Sl-56 

3235 PRINT AT o (S 1) +14 , p (S 1) +5; I 
HRS 144 

3240 LET sl=Sl+l: IF al>56 THEN 
LET s 1=5 1-55 
3250 IF Sl = l THEN PRINT RT ( 



3270 IF f 

' - 1 +14, p (Si 

) Csl-1) >0 .__... 
AT (51) +14.P (Sl) +S;CHR| 14S 
3290 IF tsl-1) <0(»1) THEN PRINT 

RT (Sl) +14, P (sll+5;CHR* 145 
3500 LET tfsv+l: IF INKEY» < > ■' " OR 

S(>170 THEN GO TO 8 
4000 BEEP .01,20: NEXT S 



4001 GO TO 3200 

4100 REM m Neues 5p i a I 
4110 PRINT RT 21,1; FLfl: 



PAPER 0; " 



Spi. 



4120 IF INKEY* 
TO 4120 
4125 IF PU>hi THEN LET 
4130 LET 1^200: LET Q2 
q&=10: DIM 0(1000): DIM 
(SO TO 551 



Basic-Listing « Anaconda'. (SchluB) 
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Spiele-Listing 

Geheim 

Abenteuerspiele, die in Zeitschriften 
abgedruckt werden, haben einen 
Nachteil: Der Leser erfahrt beim Eintip- 
pen, wie er die Ratsel zu losen hat. Das 
Programm »Geheim« fur jeden Spec- 
trum lost dieses Problem. 

Mit diesem Hilfsprogramm kann man den Zeichensatz ver- 
se hieben. Resullat: Soil zum Beispiel ein K auf dem Bildschirm 
erscheinen, mufi ein I eingegeben werden. 

Nacbdem das Programm eingegeben und mit GO TO 300 
auf Baud gesichertwurde, wird esgestartet. Es erscheint der 
normal e Zeichensatz in Schwar:: i.:n:! Ay jfiwads geanderte in 
Rot 

Unten stehtjeweils der POKE-Be(ehl, der eingegeben wer- 
den muB, urn den *roten< Zeichensatz zu erhalten. Durch 
Drucken einer beliebigen Taste verschiebt sich der Zeichen- 
satz immer m eh r. Mangibtzum Beispiel folgendes Listing ein: 

Durch POKE 23606,0 wird der Zeichensatz wieder »nor- 
mak (8. Baran) 



95 REM © Be 










Te 






Chensaw nit sich 




















110 PRINT fiT 


17,8. '■SuHUHfiz-norn 


















125 FOP 9=32 






: LET q»o+l 




















: LET q=q + l 




































LET b*S: LET C»13: 












PRINT 8BjRT B,0; " 
: NEXT f : 5TGP 
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48 dSSfei 



1GS 




setzt Zeichensatz ant Normals tellunq 


105 




Farbsetn ing und Variablenbestimmung 


110 




Information en ersrheirwri n\ it clsm Rilrl^rliirm 


120- 


2Ub 


kompletier Zeichensatz erscheint auf dem 
Bildschirm 


210- 


260 


POKE-Befehl-Schleife 


240- 


-250 


neuer POKE-Sefehi erscheint auf dem 
Bildschirm 


260 




Tastaturabfraqe 


300- 


-320 


SAVEn fur Programm: *Geheim« 



Program mstru ktur 



i > POKE 23606,16 

i PRINT "BgciSRcurqr 



im 



USB POKE 23685, 



Cq©P_S 



Verschleierter Text 



1. X- Print-Position fur Zeichensatz 

2. X- Print- Position fur Zeichensatz 

3. X- Print- Position fur Zeichensatz 
jeweilige INK-Farbe 

Y- Print- Position fur Zeichensatz 
POKE-Befehl-Schleifenvariable 

1. Schleife zum Zeiohnon <ins Zeichens 

2. Schleife zum Zeichnen des Zeichens 

3. Schleife zum Zeichnen des Zeichens 



Variablen-Tabelie 



Tasword- 
Einzeiler 

Immer mehr Spectrum-Fans kaufen 
sich ein Interface 1 und steuern dann 
mit der RS232-Schnittstelle einen 
Drucker an. 

Tasword two, »das- Textverarbeitungsprogramm, ist jedoch 
fur ein Centronics-Interface geschrieben, Fugt man die Zeile 
265 ein, kann man jedoch auch seriell ausdrucken. Die Inter- 
face-Kontroll codes konnen dann auf »0i gesetzt werden. 
Eventuelt (daruber gibt das Druckerhandbuch Auskunft) miis- 
sen andere Werte eingestellt werden. Beim Epson FX-80 und 
beim GLP von Centronics reicht i0«. (mk| 



Basid-Zeile 265 



C-64 




DIE CG4 ENZYKLOPADIE 



DER AUTOR RAETO WE; ■ 

lyseund Doktirrwnifltion <~iiri dan '..' i ; >4! LrJj'Lioriij seiritr i.'oilk_; 
itgemaften Geduld: Das einzig.; emyklopiiei.-.i'h^ 
!'i4i'r-Rii;-li. d;is ii(fe J :i liircir: Oimpiiier liwjsn bleibt. 
Me Erklarungen, auch komplexer System- und 
Program mi i^ger.. urr.fasifir bci ifey W&- ^>;'s Usd-w: 
Kompetenz dutch Einsicht und solides Fa Uteri wis 
ea Beispii/il'wll: M-jsik'haorie und SID-Chip in 
Kapitel 131 
EIN REFERENZBUCH fiir prof essionelle Hard/ 
Software- Erilwiddcr oil! di'iv' US Standard des 
Buchs PROGRAMMING THE PET/CBM des 
gleichen Autors; EIN LEHRBUCH zu Aufbau 
und Anwendung von Mikvc-coinpuleni am Beispiel 
des C-64 fiir olle Aulodidi.iki.vii und Einsteiger; 
EIN ANWENDUNGS-HANDBUCH 7um C -64/SX -64 mit 
liber 300 Programmioiui^jL"! Sl'.cr !Vk-: I : u:"ikiior.un - auchder 
scnn-nt'rigi?n. siphenen und maist utmiedenen. 



Etwa 500 Seiten. Softcover, DM 66,- 



Weitere te-wi-Bucher 




NEU! C-64 Akustik imd Graphik 
Bnplanvollei U&rgaaa '■■■■ 

SeaaBa &eW&6a 

i"i..pMI«::i.;:.i:KI.,nyb,liki E^cnlliaJL 
Hot i-'k-:. und wird abge- 









18 Setter 



NEU! Der Sensible 

C-64 Pro.jramm5ammli.nr! 

Fiir ErerbwrmliiiT nil; fiir Rxpi-'rti'n. 




NEU! Reparaturanleituna 
Computer: C-64 

i n,,:i(j,!i~iji :-i r-.T.-c:u!U'.il..iif. i ;i I Li: Kfjui... 
iiir,:-iiMi:d"l iLiwi-.-kliiim^tKirnwuTiC-M. 

: ,-im i v.i;iltplarte,.Beut«lta nnrJVfe* 
tratE^TTMimsi.''-- ''■'..•'.":■:. :■"■■■ 

Mappe. DM 29,30 
STRUCTURED BASrC crwcil.--.rr w l-.t-4.li. 

i:..-i-:h ! s I :i/ii„^:i..-.:,k i :i! t .:- : . f:-»4 ■■>:.:- !*f: .■-. 

li i :.-.-,U.v,.. : . •;;-,,ir!v-. i l-.N--!ln^-:rri: 1 -<:l 



life, DO. ..LOOPs mil l^Ebcncii. 
ii.rjIlo^i-.dt.Gr^piiikcnauchimFarb 
lu5,GOTO-!].-i.-i'!..i,i]i:iiiL:,-. :lii:.,inil..>i 
' , Ppddicmurn iOOK fl-.jr.::;i ■•xlcrnr ROiV ; : 
^ ^ini.dfcvl ;,ir|.vi.j. Ki.ch 1376 S.) und 



U; 






cr VC20 und C-64. 



Spiele-Listing 

Space-Smily 

Hier 1st ein 5-Minuten-Spielchen fur al- 
le Spectrum-User, die mit Beta-Basic 
arbeiten. Es gilt, die Space-Smilys zu 
befreien. 



Space-Smilys sind kleine, gelbe, runde Dinger, 
wie User dch u CVaNk/e'i.-f^t' -i under, da sie auch 
schliefilich welche sind). Angeblich sind sie von irgendwoher 
aus dem Weltraum gekommen; jedenfalls ist eine Unmenge 
von ihnen in einem seltsamen Gangsystem mit direktem Aus- 
gang in den Weltraum eingesperrt. Oer Spieler sieuert die Smi- 
lys mit den Tasten >Q«, "A*, sO« und *P«. Mit »Q« und *A« steu- 
ert man sie auf- undabwarts; mit»0«kann man ihren Vorwarts- 
drang bremsen (sie bewegen sich immer vorwarts, es sei 
denn, eine Wand ist ihnen im Weg Oder die Taste »Ck ist ge- 
druckt. DieTaste»P«wirdbenutzt, urn Space-Grumpys zuent- 
femen. Space-Grumpys sind im ganzen Gangsystem verteilt; 
man unterscheidet sie von den Space-Smilys, die immer la- 
cheln (smile=lacheln), daB sie immer mumsch sind 
(grumpy = murrisch). AuBerdem sind sie durch ihre ewig 
schlechte Laune schon magentafarben geworden. Space- 
Grumpys haben Space-Smilys zum Fressen gem (wortwortlich 
zu nehmen]. Beruhrt ein Smily einen Grumpy, so ist das Spiel 
zuEnde. Dasich die Grumpys abervermehren (pro gerettetem 
Smily um 10) und die Gange blockieren, krjnnen die Smilys, 
wenn sie direkt am Grumpy sind, diesen durch Druck auf Taste 
■P« in Staub und Asche umwandeln. Da die Grumpys manch- 
mal auch Locher in die WSndebohren und sich dann hineinset- 
zen, wird nach Entfernung eines solchen Grumpys ein neuer 
Durchgangtrei. der oft angenehmalsAbkurzungdient.Bei die- 
sen Lochern in der Wand ist, solange die Grumpys noch darin 
sind, auBerste Vorsicht geboten! Die Smilys gehen namlich 
auch dann hindurch und das Spiel endet Mit Taste »0« kann 
dem vorgebeugt werden. 

AuBerdem liegen noch Kafige herum; wird einer von einem 
Smily beruhrt, so kommt dieses zum Ausgangspunkl 2ur[ick 
und es gibt 10 Minuspunkte. 

Apropos Punkte: Pro gerettetem Smily gibt es 10, pro abge- 
schossenem Grumpy 5 Punkte. 

Im giinstigsten Fall dauert ein Spiel 5 Minuten; dann stoppt 
die Liber CLOCK gesteuerte Uhr das Programm. Meistens 
aber wird das Spiel sicherlich frilher enden; auBer die Grum- 
pys setzen sich an die giinstigsten Stellen der Mauem. 
Eingeben und Laden das Programmes 
Beta Basic taden. auf KEYWORDS 1 — Modus achten. Pro- 
gramm It. Listing eingeben. Achtung[ Wenn in Print-Fbsten 
.ALTER*, sBe oder »CLOCK* steht, so ist dies mit einem Ta- 
stendruck im Graiikmodus einzugeben, die Leerraume entste- 
hen von selbst 
Programm auf Kassette saven. 
Vor erneutem Laden zuerst Beta Basic laden! 
Umschreiben fur 16-K Byte-Spectrum oder Spectrum ohne 
Beta Basic 

Da Beta Basic viel Speicherplatz braucht, ist das Programm in 
der Form des Listings fur den 16-KByte-Spectrumnichtgeeig- 
net. Ftiralle 16-KByte-Spectrum-BesitzerundalleNicht-Beta- 
Basic-Besrtzer hier Anweisungen zum Umschreiben des Pro- 
gram ms: 

1. folgende Zeilen Ifischen: 

70, 120, 130, 160. 280, 450, 470, 510, 630 

2. Anderungen: 

Zeile 520—550, 820, 840: alle jPROC PRINTS andem in 
>GO SUB 590< 



Zeile 590; »DEF PROC« andem in *REM« 

Zeile 620: »END PROC* andem in ^RETURN. 

Zeile 150,200,210,250,520,940: in den Print-Posren das 

.ALTER*. »B* und »CLOCK« als »A», >B« und >C« im Grafikmo- 

dus eingeben. 

Zeile 810: Das .ALTER TO PAPER 7« weglassen oder anden 

in -PAPER 7: CLS»: das »ALTER TO PAPER 0* weglassen Oder 

andem in -PAPER 0: CLS«. Beim Weglassen geht ein guter Ef- 

fekt verloren, beim Andem wird der Bildschirm geioscht, was 

bei ALTER nicht der Fall isL 

3. neue Zeilen; 

65 DEF FN t()=(PEEK 23672+256-PEEK 

23673+65536* PEEK 23674)/50 

160 POKE 23672,0: POKE 23673.0: POKE 23674,0 

280 IF FN t()>300THEN GOTO 820 

510 POKE 23658,8 

830 PRINT AT 0, 31-LEN STRS FN 6();FN t() 

(Anmerkung: In FN l() si-^il die Zt-:i: in Sakunden) 

(H. Prillinger) 



Vsriabtenllste: 




pts 


Punktzaht 


fi 


1, wenn geschossen wird, sonst 


sl,z 


Zeiiori?ahl des Smilys 


st.t 


Spaltenzahl des Smilys 


udg 


Wert zum Poken der User-Grafics 


a$ 


String, der in die Bildsohirrnmitte ge- 




schrieben wird 


lin 


Zeile. in die a$ geschheben wird 


k1,k2,k3 


geben Auskunft iiber gedruckte Taste, 




siehe Zeile 650—670 


e,f 


z+e und t+f sind Position des atizu- 




schieBenden Grumpys 


a,b 


Steuervariablen von FOR/NEXT- 




Schleifen 


P rag ra m mgli ederu ng : 


10 — 210 


Inifialisierung 


220- 290 


Hauptschlelfe 


300 — 380 


Bilds chirm 


390 - 440 


User- Graf ios 


450 — 470 


wird aufgerufen, wenn Beta Basic fehlt 


480 — 580 


Program merklaii ing 


590 - 620 


Printroutine 


630 - 730 


Tastaturabfrage 


740 — 790 


Attributabfrage 


800 — 870 


Crash 


880 — 960 


Grumpy abschiefSen 
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Hardcopy des Spielfeldes 
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I KQENNEN, 



. DIE 5MILY5" 



i REM jfiMM---=.TF-:P55= .-: 

REM A-52S0 BRRUNRU RM INN 
■ REM XX SPECTRUM BETABASIC 

REM 

IF PEEK 23731 >23i THEN GO " 



90 GO 5UB 480 
100 LET PTS=0 
110 LET Flog 
i.iG^"G3. 00: 00" 
i;:@ KEYU0RD5 
14i3 30 SUB 300 

15B FOR fl = l TO 30 driimt AT INT 
1P.NDS22J .INT :=S r d5,.5, INK 3, 
BRIGHT 1, "M" : NEXT A 

170 LET 5L=20; LET ST=1 

1SS LET 2=20: LET T = l 

190 FOR A = l TO 2: PRINT RT RND* 



... PRINT AT INT 
RND*26> +S; INK 3; 
NEXT A 



PRINT RT 



RND*22! , INT 

BRIGHT 1,"S" 

210 PRINT AT 2,T, " 

220 IF IN 573A2<>252 OR IN 5734 
2<>a53 OR IN 64510;>S55 OS IN B5 
C22:.:i3- Th£:-i G:: i-.JB 630 

230 IF FI THEN GO SUB SS0 

54.0 CO SUB 740 

250 PRINT RT Z,T; "ft" 

260 IF PT5<0 THEN LET PTS=0 

270 IF T=31 THEN PRINT AT Z,T;" 

": LET PTSiPTS+10: GO TO 170 

280 IF FN TS i) = "00: 05: 00" THEN 
GO TO 320 

;■'?=? GO TO 220 

300 REM DISPLAY 

310 CLS 

320 FOR A=0 TO 6: PRINT RT R , £6 
; INK 4, "I ": NEXT R 

330 FOR Ral0 TO 21 
28; INK 4; "f " ; NEXT .. 

340 FOR A=6 TO 21: PRINT RT R,4 

, INK 4;"l";flT ft, 12; ink 4;"l";n 

T A, 20; INK 4; "I ": NEXT R 
3S0 FOR fl=0 TO 15: PRINT RT fi,8 

; INK 4;"|";hT fi,16; ink 4;"I";h 

T A, 24: INK 4; "I " : NEXT R 

360 INK 4: PLOT 0,0: DRRU 0,175 
: DRRU 255.0: PLOT 0,0: DRRU 255 
,0: INK 6 

370 FOR R=l TO 50: PLOT INT iRN 
D*24) +232, INT IRND*175) : NEXT A 

380 RETURN 

390 REM UDG 

400 RESTORE 430 

410 FOR A=USR "R" TO USR "C"+7 

420 RERD UDG: POKE A..UDG: NEXT 
fl 

430 DATA 60,126,215,355,219,231 

. . -:- ■ . ..;:;■ ;. :■ . ..;"■. ..;■.■ 

26 .60,23 .64 . '--: . ISO.. 3 . 144,2,4.0 

440 RETURN 

450 CLS : PRINT RT 6,0; "FLIER DI 
ESES PROGRAMS I5T"' 'SETA BASIC U 
ERSJCN ! . , F-. ; -'-';^SLICH." 

460 PRINT RT 12,0;"LRDEN SIE ZU 
ERST BETA BR5IC , DRNNER5T DIESES 
PRCSSHMM." 

470 PRINT RT 16 , 0; "DRUECKEN SIE 

= :■:;■:: ■ "■■-.g--; i kz -■ 

480 REM ERKLflERUNG 

490 BORDER 0: PAPER 0: INK 6: B 
RIGHT 0: FLASH 0: OUER 0: INFERS 
E _-:?._ R A N DOHIZJ^lJSLA 

510 POKE 23658,3: KEYU0R05 
520 LET LIN = 5: LET fl*="5TEUERN 
SIE DIE 5PR'Ji-5M";.-,-S ifi)":"PRINT 
1: LET flS="DURCH DIE KORRIDORE H 
INRU5 INS" :"PRINT1: LET H*="RLL. 
RBER SPACE -=■!- SLY;, i ::-'3EN" :■ PRINT 
1: LET fl$ = "FEIN[>E is) , DIE GEFAE 
HRLICH UER- " " "" ■" 



•PRINT!: LET fli="DE 



"START HIT 



w l\UCI^r4CI^ , i.'[Zl.i'. L'iL :"I1LU rnj 

NT1: LET fl*="NICHTS GEGEN SIE UN 
TERNEHMEN. 1 ."F-'IN""- 

530 LET fi$s"i.. l QP.&ICHT! 5PACE-6MI 
LY5 SCHLUER-" .^PRINTl: LET A* = ' , F 
EN DURCH JEC-ES ^GCH.. hUCH":"PRIN 
Tl: LET AS="UENN EIN FEIND DRRIN 

1ST' ":"PRINT1 

54.0 LET A$ = "UIRD EIN KAEFIG ill) 

BERUEHRT.'Y'PRINTl: LET fl(="50 
GIBT £S RIJNK'-=--=;:: J EGZ L- ! ■' Y ' ' L ' PRIY 
Tl: LET AHis-DfiS G;-iIi.- MUSS ZUM A 
U--5GANG:;.--:'PRIHT1: LET A» = "PUNKT 

:JRU£.CK . " :' PRINT 1 

SEQ :_£" l.:.-:=LIN + 1: LET AS = "TRST 

;:■ ; ... T ■ ; : " !_ : - : .... / ■:_■-..■; : ■ -■." .V 

1: LET fi$ = "0-NICh,T NACH PECHT3 G 
EHEN" :" PRINT1: LET AJi"P-FEIND A 
ST-iCHI --5-- !"-■■■■■ ,: P 'ImTI 

i^.C PRINT =3:AT 1.3 
ENTER . " 

570 IF TNKc.E -. iCHRSi 13 THEN GO 
TO 570 

530 RETURN 

S90 "PRINT 1 

600 PRINT AT LIN, INT ■: 132-LEN A 
J) /2) ; A* 

510 LET LIN=LIN+1 

520- 

530 REM TA5TRTUR 

6i0 LE" K.:. = IN S-G4-2: LET K2 = IN 
64513: _ET KG=IN 650=2 

550 REM P : K 1=554, "0 : K 1 = 253 

Sc.Q P.c:-1 O IP. K1 = 25S 

570 REM a. K.;; =;=■=..;..■■ A : K3 = 254 

630 IF K2=a54 THEN LET SL=SL-1 

590 IF K3=254 THEN LET SL=SL+1 

700 IF Kl=254 OR Kl=252 THEN LE 
T FI = 1 

710 IF (Kli>253 AND Kl;>252! TM 
EN LET ST=5T+1 

720 IF RTTR £SL,STi=4 THEN LET 
ST=5T-1 

730 RETURN 

740 REM FELD 

750 IF ATTR (SL,STi=7 THEN LET 
PT5=PT3-10: BEEP .02.40: PRINT A 
T Z,T;" ": LET Z=S0: LET T=l: LE 
T 5L:Z: LET 5T=T: GO TO 210 

760 IF ATT.,: ,SL,STi .■ :■ 5 AND RTTR 

(SL,ST) <>57 THEN BEEP .1,0: LET 

5L=Z; LET ST=T 

770 IF ATTR (SL.ST)=6 THEN BEEP 

.01.T-5: PRINT RT Z.T," " : LET 
Z=SL: LET TioT 

730 IF ATTR lSL,ST)=57 THEN GO 
TO 300 

790 RETURN 

800 REM CRRSH 

810 FOR B=12 TO 30 STEP 6: FOR 
R=30+8 TO 10+B STEP -1:3. TO PAPE 
R 7:fl TO PRPER B: BEEP .001, fl: N 
EXT fT: NEXT 6 

820 INUERSE 1: LET LIN=0: LET fl 
*="PUNKTE: "+5TRS PTS:"PRINT1: I 
NUERSE 

830 PRINT RT 0,24; FN Til) 



"J" AND INKEY$o ,, Y" THEN Gu 
50 

650 IF INKEY(="N" THEN STOP 

870 GO TO 100 

3S0 REM FIRE 

390 LET E=0: LET F=0 

3O0 IF RTTR tZ+l,Tl=67 THEN LET 

E=l: LET F=0 

910 IF ATTR iZ~l,T>=57 THEN LET 

E=-l: LET F=0 

920 IF RTTR fZ,T+l)=57 THEN LET 

E=0: LET F=l 

930 IF RTTR (Z+£,T4F)=67 THEN L 
ET PTS=PTS+5 

940 PRINT AT Z+E.T+FJ INK 6; "C" 
: FOR fli30 TO 20 STEP -1: BEEP . 
003, P.: NEXT A 
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Dreidimensio- 
nales Plotten 

Hier wird erklart, wie mathematische 
Funktionen mit dreidimensionalem Ef- 
fekt dargestellt werden kdnnen. Das 
abgedruckfe Programm lauft auf je- 
dem Spectrum, 1st aber auch fur Be- 
nutzer anderer grafikfahiger Compu- 
ter interessant. 

Echte droit ■,. i ,■ ■,. : ■ ■ rid aut einem Bildschirm 

nurmitSpeztalbrillenmoglicri. Wrrbeschrankenuns hier auf ei- 
ne perspektivische Abbildung. Da die rnathematischen Funk- 
tionen in dtei Achsen dargestellt werden. ist die Bezeichnung 
"dreidimensional* dennoch gerechttertigt. 

Ein Algorithmus zur zweidimensionalen Funktions-Darstel- 
lung ist reclit eirsach. Die Zrihl tder veiiikdcr. und horizontalen 
Punkte ist gerateabhangig. Beim Spectrum sind 176*256 
Punkte mit dem Basic-Befehl Plot sete- und loschbar. 

Man kann eine Funktron naturlich nicht vollslandig zeichnen 
— die Achsen sind ja unendlich lang — , sondern nur einen Aus- 
sebnitt Dieser Bereich wird mit den Vartablen xlinks, xrechts. 
max und min festgelegt. Die Extrema (Maximum und Minimum] 
konnen entweder von vomherein bek3nnt sein oder sie kon- 
nen von einem Programmteil dutch »Ausprobierens ermittelt 
werden. 

Nun konnen die Funktionswerte berechnet und die entspre- 
cbenden Punkte der Reihe nach gesetzt werden. Die Position 
des zu setzenden Punktes errechnet sich aus der Formel 



Bildscbirmhohe 



M- 





LET Erin--! 




























PLOT n , by * 















Bild 1. Eine Kurve hat zwei Drmensionen 




Bild 3. Eine Anzahl 



Kurven 



52 jSfEBulli 



AutdieseWeiseentstandBild 1. Zeile 100kopiertden Bild- 
scbirminhalt auf den Drucker und listet das Programm auf. 

Man kann entweder alls Positionen berechnen, in einem Feld 
abspeichern una e r B:zi.irr:Schli.;B>:eicbnen oder aber nach je- 
der Rechnung den entsprecbenden Punkt sichtbar macben. 
Das zweite Veriahren bal den Vorteil, dafi etwas auf dem Biid- 
schirm passierii.ir:ddi;-;-:.ir-'..-5ji-" i~i Cliche Wartezeit nicht SO lang 
erscheint. AulSerdem wird weniger Speicherplatz gebraucht. 

Wie ontsteht nun die raumliche Wirkung der Bilder? Zu der 
waagrecbten x-Achse und der senkrechi^-i :(x)-Acbse kommt 

eineweiteretui :ii. ■ 19J, ■-.■■. \ Ihai r.systemistinBild 

2skizziert. DieFunktionhangtauBervonxjetztauchnochvon 
y ab, z = f(x,y). 

Der plastische Effekt tritt ein, wenn eine Reihe von Kurven 
jeweils leicht versobebon ai;foi:i;indnr <y^Js&. wird (Bild 3). In 
der Projektion verdeckte Flachen, also das Innere des 
Funktions-Gebirges. sol; nidi! -srscheinen. Man kann dieses 
Problem ignorieren, der Graph wirkt dann jedocb wie ein 
durchsichtiges Netz und nicht wie ein massiver Korper. 

Beim hier besprochenen Programm wird das Bild in lauter 
Schichten von ninten nach vorn aufgebaut. Jede einzelne 
Schicht wird nichi ais Kurvo goeeiebne'. sondern als Flache, 
von der nur die obere Kante zu seben ist. Das laGt sich mit ei- 
ner Reihe aus ge ,.■, ■■■:■. ■ ■. Idchen, dio hintereinander 
gestellt werden. In Bild 3 ist diese Struktur deutlich zu erken- 

Werden die :.i i. ib i , wechselndschwarz und weifi ein- 
gefarbt, entsteb!derStreifen-EffektvonBild4. Derallmiihlicht 
Aijfbau laBl sich am Bildscbirm verfolgen. Dabei laBt sich die 
Arbeitsweise des Programms leicht nachvollziehen. 

Sehen wir uns Bild 5 an. Es bandelt sicb urn eine gedampfte 
Schwingung, die urri den Mittelpunkt rotiert. Eine gedamptte 
Schwingung entsteht beispielsweise durch ein Pendel; der 
Ausschlag wird immerschwacher bis zum Stillstand. Die Rota- 
tion sleht schwieriger aus als sie ist. Die einfacbere Funklion, 
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Bild 4. Die gestreiften Sinusberge 



^^ 



Bild 5. Gedampfte Schwingung rotiert 

wie die Sinusberge auf Bild 4, sind von x und y abhangig, also 
z=f(x,y). Eine ratierte Funktion ist jedoch abhangig vom Ab- 
stand zum Mittelpunkt. 

Dieser Abstand ISBt sich mit dem Satz des Pythagoras be- 
rechnen. In einem rechlwinkligen Dreieck ist die Summe det 
Katheienquadrate gieich dem Hypotenusen quadrat (Bild 6), 
Die Seiten am rechten Winkel entsprechen hier x und y. Der 
Abstand zum Mittelpunkt ergibt sich somlt aus 



Die Zeile LETr = SQR(x" x+y'y) findet sich mit den Num- 
mem 790 und 980 im Programm wieder. Wenn als Funktion 
nun zum Beispiel SIN t festgelegt wird, entsteht eine ratierte 
Sinuskurve. 

AuchderiHuUauf Bild 7 macht von der Rotation Gebrauch, 
obenso Bild 8. Dieses Bild stellt eine plattgedruckte Kugel dar, 
die mit den Buchstaben »3Di beschriftet ist. Dabei wurde eine 
Besonderheit des Spectrum ausgenutzt: Die einzeinen Punk- 
te eines mit PRINT geschriebenen Textes lassen sich mit der 
Funktion POINT abfragen. Mit PRINT AT 21,0;»3D« wurden die 
Buchstaben auf die linke untere Ecke gebracht. Beim Plotten 
wurden die Punkte dann atigcfragi und ci't Toil des Bildes da- 
durch leergelassen. 

Am schwierigsten war die Pyramide auf Bild 9 festzulegen. 

. ■', >!l> w|, ■ . :. i, , i ,!,■ i . : ,i , i.- ■■ ■ in, ,ll:i 

reiche Fallunterscheidung notig. dienicht von IFs. sondern von 
AND-Operatoren geleistet wird. 



Bild 10 zeigt die GauGsche Nomiaiverteilung. Diese Kurve 
hat in der Statistik eine groiie Bedeutung. Wenn Sie hundert 
Hasen tangen und die Haufigkeit ihrer Ohrenlangeauf Millime- 
terpapier eintragen, wird eine ahnliche Kurve herauskommen. 
Am Gipfel schlagen sich die zahlreichen Du re hschnitts- Hasen 
nieder. Links und rechts sind die seltenen Tiere mit besonders 
kleinen beziehungsweise besonders groBen Ohren beriick- 
sichtigt. Weil sie so seiten sind, ist die Kurve dort niedriger. 

In Bild 11 ist das Listing zu sehen. Das Basic- Programm isl 
in mehrere Bldcke unterteilt, die nacheinander durchlaufen 
werden. Man unmoglich, aber es sind we- 

der GOTOs noch GOSUBs in diesem Basic- Programm enthai- 

Es ist nicht einfach, die GOTOs zu vermeiden. Einige Pro- 
grammteile wie zum Beispiel Gitter I diirfen nur unter bestimm- 
tenBedingungeriausgefuhrt werden. InderProgrammierspra- 
che Pascal wurde dieser Abschnitt lauten 

THEN BEGIN 

END; 

In Basic hingegen dart auf ein THEN nur eine einzelne Zeile 
folgen. Darum wiirde an einer solchen Stelle uberlicherweise 
ein GOTO benutzt: IF gitter = THEN GOTO 700 
Sprunge sind jedoch aus gutem Grund verpont. denn sie zer- 
storen die Programmstruktur. Man kann einfach nicht mehr fol- 
gen. 

Der Autor hat eine solche Abneigung gegen GOTOs, dafl er 
stattdessenFOR-NEXT-Schleilenoer;i.:ul. Ir:i Beispiel werden 
die Zeilen 520-590 nur dann ausgefuhrt. wenn die Variable 
»gitter* ungleich Null ist; sonst nicht. Das klappt nur bei 
Sine lair- Geraten. in anderen Basic-Dialekten wird eine Schlei- 
fe immer mindestens einmal durchlaufen. 

Am Programm- An fang werden eine Minimum- und eine 
Maximum- Funktion definiert. Sie benotigen zwei Parameter 
und liefern als Ergebnis den kleineren beziehungsweise den 
grdOeren Wert der beiden Zahlen. Dann erfolgen eine Reihe 
von Eingaben, sie werden naher noch besprochen. 

Im Block Kalkulation werden die Variablen »ebenen=, »stepxa 
und »stepy« berechnet. Gitter I und II zeichnen den Kasten 
rund urn die Funktionsdarstellung. Sie werden nur durchlau- 
fen, wenn das vorher vereinbart wurde (»gitter» ungleich Null). 

Auch der Block min/max-Automatik wird nur auf ausdrilckli- 
chen Wunsch benutzt (wenn »min« und trnax« beide Null sind). 
DerTeil PLOT ist der wich tigs te. Hierangekommen, stehenalle 
Variablen fest. Die Funktionswerte konnen nacheinander be- 
rechnet und gezeichnet werden. 

Hinweise zum Eintippen 

Beim Erreichen der Zeile 1200 ist das Bild fertig. Wenn ein 
Drucker angeschlossen ist. wird ausgedruckt. Alle wichtigen 
Parameter werden mit ausgegeben, damil man die Grafik spS- 
ter rekonstruieren kann. 

Wer ohne langes Eingeben zu einem schnellem Ergebnis 
kommen will, kann die Programmteile Gitter I und I! (Zeilen 




Bild 6. 

Der Satz 

des Pythagoras 
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Bild 8. Eine plattgedriickte Kugei 



500-600 sowie 1100-1170) und min/max-Automatik (Zeilen 
700-830] erst einmal weglassen. Das Gitier wird dann eben 
nichtgezeichnet und Minimum/Maximum solltenbekanntsern. 

Im Listing ISBt sich die Null nur schwor vom Buchstaben »0' 
unterscheiden. Dennoch dilrfte es nicht zu MiBverstandnis- 
sen kommen: Der Buchstabe taucht nur innerhalb von Wortem 
auf, alles iibrige sind Nullen. 

Die Funktionsnamen wie SIN oder EXP erscheinen als Gan- 
zes im »Extended Modes (Caps Shift und Symbol Shift gleich- 
zeitig driicken, blinkendes E erscheint). Werden sie falschli- 
cherweise aus Einze (buchstaben zusammengesetzt, reagiert 
der Spectrum mit sNonsense in Basics beziehungsweise blin- 
kendem Frag ezeich en -Cursor. 



Die Bedienung 



Nach dem Start mit RUN werden eine Reihe von Eingaben 
vertangt 

f|x.y)= Die darzustellende Funktion. Als Parameter sind x, y 
und r (r wie Radius, der Abstand vom Ursprung) mdglich. Alle 
Basic-Funkiionen, auch selLisvc;-;:':nitric, ckirfen vorkommen. 
Funktionsnamen nicht aus Einzelbuchstaben zusammenset- 

x links, xrechts, yhinten, yvorn 

der abzubildende Funktionsausschnitt 
nicht definiert: Normal erweise Null eintasten. Wenn ein Teil 
des angegebenen Intervalls nicht gezeichnet werden soil, die- 
sen Teil angeben. etwain der Form "x<7 ORy>=0". Dasist 
zumBeispielbeiderTangensfunktionnutzljch, vondersichei- 
nige Werte nicht berechnen lassen. 

min, max Der niedrigste und der hochste Wert. Wenn unbe- 
kannt, jeweils Null eingeben, dann ermittelt das Pragramm sie 
automatisch. Die Bestimmung der Extrema dauert allerdings 
eine Weile, da alle Funktion s werte berechnet und verglichen 
werden. Wahrend dieser Operation wird ein Countdown ange- 
zeigt. 
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LET y fe 
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LET Kfl 




bx-fx RND move 
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540 


FOR m=y 


fenste 


r TO y fertster + 
PLOT x fenste 


fy STEP • 


entep 


f 550 


DRflU fx 
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NEXT n 


■ ■ 


fenste 


r TO xfenstert 


fx STEP gi tt 


erstep 


PLOT »,y fens 


ten 


DRRU a. 


fy : 


NEXT H 


560 


PLOT Xf 




,y fenster : DRfi 


U 0, 1 


U : DRRU 


ebene 


-i*i»ovex .ebenen 



.... jV«u 
570 PLOT xfenster.y 
ORRUI fx ,0: DRRU eben, 

580 PLOT xfenster+n 

y : DRRU 8, -fy : ORflU ( 

^ebeneninovey 



tx, fy Die Breite und Hohe jeder =Scheibe«. Der Bildschirm ist 
255-175 Punkte grot). Die Scheibe muB etwas kleiner sein, 
weil jede zur voihe.-iger, ieicht vorsctzt wird. Brauchbare Wer- 
te sind zum Beispiel 165 und 85. Fiir eine Darstellung mit nur 
zwei Dimensionen — also nicht raumlich — 255 und 175 ein- 
geben. 

movex, movey Anzahl Punkte, urn die jede Ebene horizontal 
und vertikal verse: rioNsii wird. Positive Werte fiir movex und 
negative fur movey sorgen datiir. daB das Zeichnen links oben 
beginnt und rechts unten endet Kleine Werte ergeben ein fei- 
neres und dichteres Bild, der Aufbau dauert aber auch langer. 
Guter Ergebnisse liefern 3 und —3. Fur zweidimensionalen 
Plot beide Male mit Null antworten. 
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590 PLOT xrenster + r'x ,y fenstef: 
DRP.U -7x,Bl DRfiLJ ebenen*»ovex .ab 

60S NEXT a 

?QO REM aanan nin/nax-flutoMUK 
718 FOR **1 TO minaO AND ■ix-Q 
720 LET *in = 1.7 E 38 
730 LET IMs-1.7 E 38 

740 FOR »-0 TO abenan 
750 LET u»yhinten-nii*s tepy 
763 PRIST Bi;flT B , 0; abenan -a ;TR 
B 28; 

770 FOR n=0 TO fx 
730 LET x=x Linus +n*st*px 
790 LET f =SOR (X*X+y*y) 
800 IF NOT VflL n« THEN LET Z-Ufl 
L f$: LET (llin=FN *(«in,Z): LET ■ 
=FN i 



Si 3 


NEXT n 










































Q 






























LET x 




























ens te 
































968 


FOR n 


=0 TO 


X 









930 LET r=50R (x*x+y*y) 

990 IF NOT tJBL n« THEN LET Z-IN 
T istauch*(Vflt, ft-tinJ): PLOT xf 
u/enitartz: 











y >0j 


-z- PLOT xfer 


ster+n,yfansttr 






















































u 0, 








DRRU 




























ORflU 


-fX,B 


r + ifx AND 


■ ovax 


<a) ,y renster.ify 


3ND BOvey 
































1210 


LPRINT "f (X, 


*j-";f«'"x unfc 








































1238 








Bild 11 


Ohne GOTOs: Das volfstandige Listing 



gestreift iiir nein, 1 fur ja. Bei 1 wird nach jeder Ebene die 

Vorder- und Hintergrundfarbe gewechselt. 

GitterOfiirnein, 1 fur ja. Beieiner oositiven Antwort wird noch 

mit wjitterstep* nach der GroBe des Rasters gelragt, mil der 

die Hinterseite unterlegt wird. 

aul 255 angeben. 

Ebenen Diese Eingabe wird ™ 

movey Null angegeben, also > 

lung gewunscht wurde Es is 




Bild 9. Pyramids 




Bild 10. GauBsche Normaiverteilung 

wird das Programm dadurch schwieng zu bedienen. Wer sich 
noch nicht damit auskennt, sollte erst nur die Funktion variie- 
ren(f(x,y], xlinks, xreoriis, y!ii;i!en yvorn, min, max| undfiirdie 
iibrigen Parameter die Standard-Werfe benutzen. 

Bild 12zeigteineAnzahlsinnvoller Eingaben, mit der die Bil- 
der 4-10 gemacht wurden. 

Bild 13 zeigt die verwendeten Variablen. In Bild 14 ist eine 
Erweiterung des Listings zu sehen. Werden diese Zeilen zu- 
satzlich eingetippt und mit RUN 1300 gestartet. dann wird der 
Inhalt der DATA-Zeilen als Eingabe verwandt. Wenn diese Er- 
weiterung lauft, malt und druckt der Spectrum ein Bild nach 
dem andern. Das Erstellen einer Grafik kann namlich je nach 
Funktion z wise hen funf Minuten und mehreren Stunden dau- 
ern Wahrenddessen kann man also ruhig Kaftee trinken ge- 
hen. Zeile 1330 enthalt leider eine Sprunganweisung. Start die 
Grafiken auszudrucken, konrten sie auch nacheinander auf 
Microdrive ae^- <■«' ' I-li- 1230 konnte dann lau- 

ten »SAVE*";1;f$(TQ 4)SCREEN$«. Als Dateiname werden 
dann die ersten vier Buchstaben des Funktionsnamens ge- 
Das Abspeichern dauert rund zehn Sekunden. 



Raster gewunscnt, dar- Ubertragung auf andere Computer 



■ verlangt, wenn fur movex und 
ne zweidimensionale Darstel- 
lann moglich, mebrere Kurven 
kt aufeinanderzulegen. In der Regel soil nur eine einzelne 
Kurve gezeichnet werden, dafiir 1 eingeben. 

Die Vielzahl von Eingaben macht das Programm universe!!, 
es sind vbllig unterschiedliche Grafiken moglich. Andererseits 



Obwohl das Programm klar strukturiert ist, kann die Ubertra- 
gung auf andere Computer erhebliche Schwierigkeiten berei- 
ten. Das hangt damit zusammen, daB das Sine lair- Basic unge- 
w&hnlich ist und andere Versionen nicht dasselbe konnen. 
Wer in dem kleinen Spectrum nur ein kleines Basic vermutet, 
wird sich wundern. 
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""'"";" 



Bild 12. Einige Beispiel-Eingaben 

Das fangt schon bei den ersten Zeilen an. Beim Spectrum 
dQrten selbstdefinierte Funktionen bis zu 26 Argumente ha- 
ben, bei den meisten Microsoft-Versionen nur eines. Die Funk- 
tionen fur Minimum und Maximum lassen sich dort also nicht 
verwenden und miissen umslandlich ersetzt werden. 

Die Funktionen AMD. OR und NOT funktionieren in den ver- 
schiedenen Basic-Dialeklen fiiich verschiGden. Manchever- 
gleichen die einzelnen Bits der internen Zablendarstellung 
(zum Beispie! 6 AND 3 = 2). Andere, wie der Spectrum, prii- 
fen nur, ob dieZahlen gleichoder ungieich Null sind. DerSpeo- 
trum behauptet, 6 AND 3 = 6, weil drei ungieich Null ist und 
somrtBANDTRUEberechnetwird. Beide Verfahren haben Ih- 
re Vorteile. 

Am nSchsten Problem scbeitern alle Gerate auESer Sinclair 
und Acorn. Der Wert eines in einem String stehenden numeri- 
schen Ausdri 'crdon. Beim Spectrum geht 

das mit VAL, beim Acorn mit EVAL Andere Rechner schaffen 
es nicht, VAl'SIN [Z"3)" oder auch nur VAL'1 + 1" auszurech- 
nen. Bei ihnen kann die VAL-Funktion nur einzelne Ziffern in et- 
na Zahl umformen, etwa VAL'234". 



a,b 


Lokale Vaciablen fur Minimum- und 




Maximum- Fun ktion 


ebenen 


Anzahl Scbichten, mit denen die Grafik 




von hinten nach vorn aulgebaut wird. 


fx, fy 
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fS 
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gitterstep 
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Punkten 




Invers (aus) oder 1 (ein). Zustand wird 




von Streifen zu Streifen gewechselt. 




Hochster Punkt au.f der z-Achse 


min 


Niedrigster Punkt auf der z-Achse 


movex.movey Verschiebung jeder Schicht nach rechts 
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n$ 
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Bildschirmkoordi naten 


stepx, stepy 


Sdi:ii:weite aut der x- bzw. y-Achse, die 




der Schichten -Verschiebung entspricht. 


xtenste, 




yfenster 


Position der Ebene — des Fensters ■ — 




auf dem Bildschirm 




Intervall aul der x-Achse 


yhinten.yvorr 


Intervall auf der y-Achse 



Von der un terse hied lichen Interpretation der Schleifen war 
schon die Rede. Bei Nicht-Sir-.^i-.-iir-Gtiraier niij3te in den Zei- 
len 510, 710 und 1110 jeweils IF ... GOTO ... stehen. 

Es versteht sich von selbst, dafi ein Programm wie dieses 
nur auf einem grafikfahigen Computer ablaufen kann. Bei- 
spielsweise ware es aussichtslos, das 3D-Programm auf einen 
normalen Commodore 64 zu Cibertragen, denn in dessen Ba- 
sic kann man keine Punkte setzen geschweige denn Linien 
Ziehen. Man brauchte dazu einen Toolkit oder eine Basic- 
Erweiterung. 

Wie man sieht ist es fast unmoglich ein derartiges Basic- 
Programm gerateunabhangig zu schreiben. Naturlich kann 
man "3D-Plot" auch in der Program miereprac he Pascal formu- 
lieren. Dem steht im Wege, duRGrfiiikin RiaoHl nicht Standard 
ist. AuBerdem gibt es kein Aquivalent zum Sinclair-VAL Man 
muSte diese Funktion entweder selbst programmieren, das 
wareaufwendig und langsam. Oder man muflte das Programm 
fur jeden Durchgang neu kompilieren. 

(Oliver Volkers) 

■4 Bild 13. Die verwendeten Variablen 
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Bild 14. Das Erweite rungs-Li sling fur Stapelbetrieb 
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Super- 

schneller Z80- 
Disassembler 

Mit dem hier verbffentlichten Disas- 
sembler, der in Maschinensprache ge- 
schrieben wurde, lassen sich Maschi- 
nenprogramme mit hoher Geschwin- 
digkeit in die Assemblersprache iiber- 
setzen. Dieses Programm wurde auf 
einem Spectrum entwickelt, laltt sich 
aber mit kleinen Anderungen auf an- 
dere Computer mit Z80-Prozessoren 
ubertragen. 

Das komplette Maschinenprogramm, das samtliche 
Z80-Befehle iibersetzt, belegi 3213 Bytes ab der Adresse 
25000. So haben Besitzer der 16-KByte-Version des Spec- 
trum noch gut 4500 Bytes Speicherkapazitat zur Verfugung, 
urn ab der Adresse 28213 zu fibersetzende Maschinenpro- 
gramme ablecen 7u konnen (von dor ubrigb lei bender Spei- 
cherkapazitai der 48 -KByte -Vers ion ganz zu schweigen). Mit 
dem Programm lassen sich auch Listings von Maschinenpro- 
grammen erstellen, doch davon spater. 

Die Anwendung des Programms ist denkbar einfach. Das zu- 
gehSrige Basic- Programm (Listing 2), ijber "LOAD ""« geladen, 
setzt in Zeile 100 den RAMTOP aui 24999 und ladt danach 
das Maschinenprogramm. Es meldet sich schiieRlich nach 
Drilcken einer Taste mit der Frage nach der Startadresse Man 
gibt nun die Adresse des ersten Bytes des zu iibersetzenden 
Maschinenprogramms ein. Danach verlangt das Programm 
noch die Eingabe der Adresse des letzten Bytes. In Zeile 40 
werden die Adressen 25002/3 und 25004/5 mitdeneinge- 
gebenen Werten geladen. Daraulhin erscheint das iibersetzte 
Maschinenprogramm auf dem Bildschirm (die Geschwindig- 
keitderUberserzungistvergleichbarmit»LIST«). DielinkeSpal- 
te gibt jeweils die Adresse des Befehls an (decimal). In der 2. 
Spalte befinden sich die Hexcodes der Bytes des Betehis (1-4 
Bytes; je nach Befehl). Die rechte Spafte zeigt die ubersetzten 
Befehle, wobeialle Zahlen in dezimaler Form erscheinen. Rela- 
tive Sprilnge werden automatisch in absolute Adressen umge- 
wandelL 

Aufbau-Hilfe 

DaskompLtl ■■• . ■ , m ■> t . n , iinm ist wie folgt aufgebaut: 
Die Adressen 25000-25037 enthalten Zwischenspeicher, 
die fur den Prog ram mablaut wichtig sind. In der Adresse 
25000 befindet sich nach der Untersuchung eines Befehls 
die Byteanzahl dieses Befehls. Die Adressen 25002/3 enthal- 
ten wahrend des Prog ram mablaufs die Adresse des jeweils zu 
iibersetzenden Befehls, wahrend der Inhalt von 25004/5 
nich! verande.'i wird. da er die Endadresse darstellt. Die 32 By- 
tes von 25006 bis 25037 entsprechen den ASCII-Codes der 
32Zeichen, die nach der Obersetzung eines Befehls auf dem 
Bildschirm oder Drucker ausgegeben werden. 



Den grbBten Speicherplatz benotigt die Codierung samtlicher 
Z80-Befehle, namlich die 2434 folgenden Bytes von 25038 
bis 27471. !m wesentlichen sind die Befehle so codiert, daB 
die ASCII-Codes der ei.'ueiren Zeichen der Z80-Befehle hin- 
tereinander Im Speicher abgelegt sind. Das Byte fur das letzte 
Zeichen eines Befehls wird urn 128erhoht. Dieses Setzen des 
7. Fiitsormoglichtes dem Computer, dieses letzte Zeichen als 
seiches zu erkennen. AuBerdem kann er durch Abzahlen der 
Bytes, die groTier als 127 sind, die Adresse der Codierung ei- 
nes bestimmten Befehls anhand seines Befehlscodes ermit- 
leln, da die Codierungen nach Befehlscodes geordnet sind. 
Dazu ein Beispiel: »SCF« hat den Befehlscode 55. Der Com- 
puter zahlt von 25039 beginnend nun 55 Bytes ab, bei denen 
das 7. Bit gesetzt ist, und kommt so zur Adresse 25279. 
25280 enthall das erste Zeichen des Befehls: S=83; C = 67; 
F=70+ 128(letztesZeichen] EigentJichbeginntderCompu- 
ter mit dem Zahlen bei der Adresse 25038 und zahlt dann 56 
Bytes ab. Das ist sinnvoll, damit er fur den Befehl »NOP* nicht 
Bytes abzahlen muB, was im Programm etwas umstandiicher 
ware. Auch die Befehle, die mit CB beziehungsweise ED be- 
ginnen, sind geordnet in einer Datei abgelegt und befinden 
sich direkthinter den ilbrigen Befehlen. Zeichenketten, die bei 
vielen Befehlen gleich vorkommen wie zum Beispiel »LD=, 
sINC* Oder »(HL)«, werden in einer gesonderten Datei zu ei- 
nem Byte zusammengefaflt (zum Beispiel »LD«=92, 
*INCs=93. *(HL}*=91). Die Datei beginnt bei der Adresse 
27319, enthalt insgesamt 32 Codes und ist ahnlich wie die 
Hauptdatei aufgebaut. Fur die Hauptdatei gibt es noch einige 
wichtige Spezial codes: 

: Befehl existiert nicht, zum Beispiel ED 3C 

2:CB 

3 : ED 

4 : DD 
5: FD 

63 : unmitteibare Daten werden erwartet (»N«) 

64 u Irihvi i . ;pi'i;nii n 'isl ri/ninante wird erwartet) 

Von der Adresse 27455 bis 27471 befinden sich die Zei- 
chen des Kommentars »Befeh: i.rn:rio(jlic i*. dor ausgegeben 
wird, wenn das Programm auf einen nicht existierenden Befehl 
stoBt — zum Beispiel wenn das Programm in der Hauptdatei 
die Zahl beziehungsweise 128 findet. 



741 Bytes reichen aus 



Undnunzum eigentllchen Maschinenprogramm (Listing 4], 
das nur 741 Bytes belegt und bei der Adresse 27472 be- 
ginnt. Hier beginnt die Hauptrouiine, die die Disassemblierung 
aller Befehle steu&r;. Var ider Ad:o.=soj 2! A 72 bis 27481 
werden die 32 Bytesab^S Spaces gefiillt). 

Von 27482 bis 27486 wird 25000 initialisiert (Anzahl der By- 
tes pro Befehl= 1 gesetzt). 27487 bis 27498 steuert das Er- 
zeugen der Adresse des zu Iibersetzenden Befehls. Das Auf- 
suchen der Adresse der Codierung des jeweiligen Befehls 
wird von 27499 bis 27505 co'Sit'L ;;■?,. ZT'j^ii bis 27508 ruft 
eine Routine auf, die den Be'-;.;r :n I iiubliok fnif unmitteibare 
Daten, Unmoglichkeit. CB, ED, DD, FD oder doppeite Codie- 
rung (zum Beispiel sLD«-32j uriersucfri, i::i:!:sprechend ver- 
zweigt und erst zurlickspringt, wenn der Befehl vollstandig 
iibersetzt worden Ist oder festgestellt worden ist, dali der Be- 
fehl nicht existieren kann. In diesem Fall wird das Carry-Flag 
zunjckgesetzt, sonst ist es beim Rucksprung gesetzt. Dieses 
Flag testet 27509 bis 27526 und erzeugt, wenn notig, den 
Kommentar»Befehlunmoglich-.. D:y r-ic-jiins 'Lirdas Erzeugen 
der HexcodH (28020 bis 28062) wird 

von 27527 bis 27529 aufqciufen. Die A.^gabe derdreiSpal- 

ten (Routine 28198 bis 28212) wird von 27530 bis 27532 
autgerufen. 27533 bis27545setzt25002/3 auf die Adresse 
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COMPUTER-ZEITSCHRIFTEN 
VON PROFIS FUR PROFIS 



COMPUTER PERSONLICH 



Das aktuelle Fachmagazin 
flir Persona I -Computer. 

* Wenn Sie jetzt den Schtitt vom 
Heim -Computer zur professionel- 
len Anwendung eines Personal 
Computers planers 

* Wenn Sie beruflich otter privet 
bereits einen Personal Computer 
benutzen 



iliig li 

nen iiber das aktuelle Produkt- 
angebat benotigen 
+ Wenn Sie selbst program mieren 

* Wenn Se professionelle Hard- 
und Saftwaretests suchen 

* Wenn Sie Ihr eigenes System 
mbglichst effizient einsetzen wol- 



das 



dnnn ist "Computer persbnlkh< . 
aktuelle Fachmagazin fur Personal 
Computer, genau Ihre Zeitsihrifl. 
Die konsequente Ausrithtung auf 
professionelle Anwendungen bietet 
Ihnen alle wkhtigen Informationen. 
Von Profis tut Profis! 
"Computer personlichi gibt es alle 
14 Tage neu bei Ihrem Zeifsthriften- 
hdndler oder im Computer-Fach- 
gesthbft. 



PC MAGAZIN 



Einzige Wocbenzeitung fur Personal 
Computer im IBM-Standard. 
Sie beschoftigen siih berufjich oder 
privat mit dem Einsatz und dor 
Anwendung von Personal 
Computem? 

Sie sind an aktuellen, professionel- 
len Informationen iiber IBM-PCs, 
kompatible Systeme und deren pro- 
fessicnellen Einsatz interessiert? 
Dann ist das PC Magazin genau auf 
Ihre persbnlichen Bediirfnisse 
zugeschnitten. 

Es wird von anerkannten und er- 
fahrenen Faihjournalisten fur pro- 
fessionelle Anwender und Fathleute 
gesdirieben. 

Es berichtet jede Wbdie ausschlieB- 
lich iiber Computer im IBM-Standard 
und kompatible Systeme, iiber 
Hard- und Sorrwareneuheiien. 
Es bringt ausfuhriiche Testheridite 
und gibt Ihnen wichtige Informatio- 
nen iiber Netiwerke sawie die 
PC/Host-Verbindung. 
Nur diese Spezialisierung ermdglicht 
eine gezielte Berichterstattung und 
bietet genugend Raum, urn auf An- 
wenderprobleme speu'fisch eingehen 
zu kbnnen. 
Von Profis fur Profis! 
Und das jeden Mittvradi neu bei 
Ihrem Zeitschriftenhandler oder im 
Compufsr-Fnchgeschaft . 



GUTSCHEIN 



Anwendungs-Listing 



1@ 


CLEAR 24393 = POKE 25 


509 . £5 


2@ 


FOR P K 2S@0@ rn .i'-if-i.:-"^ 


POKE 


P , ' 


NEXT P 




30 



35 


FOR P=z5y3y 10 iiti.il 


STEP 1 


POKE 23658,8 




40 


INPUT "Hex "ode- > ".■ 


i*> IF 


LEN MKXffi THEN PRINT #0; 


Falsch 


e i vi9abe ! E i tt-e <■• i eder-ho I en 


" : PAU 


SE 8 


GO TO 35 




nti 


FOR n=0 TO 18 STEP £ 




be 


LET x=CODE h*( n+1 >-48 : LET 


y=CODE h*< n+£ ;-48 




fiS 


IF ;;>22 OR y/22 THEN 


LET c= 


1 ■■ GO TO 150 




70 


IF X>3 THEN LET x=Jt- 




80 


IF M>9 THEN LET y=y- 




9fc? 


POKE P+iv'2,x*i6+y 




100 


ME.HT n 




lie 


INPUT "Pruefsuww ; " 


r 


120 


FOR w=0 TO 5 




130 


LET c=C~P£EK CP+n) 




140 


NEXT n 




150 


I:- r ::■■:.■.:■■ l-i.E:-- ..:.::■, y: 


PRINT 


"■Falsche Ei-n.93.be.: Zeile bitfce"'" 




.t eirr9ebeii!" : PAUSE ; CLS 


■■ GO 


TO 35 




160 


PRINT AT 0,0;"2e-ile 


; p i " k 


orrekt ei"n@e9ebeti. u 




17-0 


NEXT P 




ISO 


PRINT "FertiQ.-" 





Listing 1. Basic-Hiltsprogramm 



n Befehls. Die zuletzt gedruckte Taste (bezie- 
hungsweise die Adresse 23560| wird von 27546 bis 27551 
getestet. Wenn man die Spacetaste wahrend des Programm- 
ablaufs druckt, stoppt das Programm sofort und starlet neu — 
Eingabe von Start- und Endadresse und so weiter 27552 bis 
27563 testet. ob die Endadresse schon erreicht ist und ver- 
zweigt entweder nach 27472 Oder kehrt zum Basic- 
Pro gram m zuriick. Die Routine ab 27578 sucht die Adressen 

opp. 'il i ■■ !■■'■. i ■!,■■.!. i ii ■ , :■ ■ i n :n 

den Speicherbereich von 25006 bis 25037, der spater aus- 
gegeben wird. Nach 27699 wird verzweigt, wenn der unter- 
suchte Befehl ein IX- Oder lY-Befehi ist. Dort wird er dann 
ter untersucht Von der Routine ab 27955 warden die Zei 
ch encodes fur die indizierte Adressierung erzeugt (zum I 
spiel »(IY-15|«) und in den Speicherbereich von 25006 
25037 geladen. Die Routine ab 28063 steuert das Ersetzen 
von unmittelbaren Daten (»N« Oder »NN>| durch Zahlen. Das 
Erzeugen von Dezimalzahlon goschieht durch die Routine von 
28108 bis 28197. 



Eingabe-Hinweise 



Der Ablaut bei der Eingabe des Programms empfiehlt sich 
wie folgt: Zunachst wird das Hiltsprogramm (Listing 1) ffir die 
Eingabe des Mas^iirroriaroi'ifflrTirns eingegeben und mit 
»RUN« gestartet. Nun muB man — mOglichst sorgtaltig — samt- 
liche Hexccde-Zeichenketten von Listing 3 hintereinander 
eingeben. Dafur ein kleiner Tip: Wenn Sie eine Zeichenkette 
eingeben, so mu(3 das letzte Zeichen dieser Kette am Zeilen- 



Bnde und der Cursor ;i:ii Antanij der nachsten Zeile stehen. 
Natiirlich pruft das Programm auch selbstandig die Lange des 
eingegebenen Strings; sollte sie aber nicht 20 betragen, so 
milssen Sie den gesamten String neu eingeben. Hinter jeder 
Reihe fordert das Programm die Prufsumme der Reibe; diese 
befindet sicti wic ublicin jcwoiis -ochts vom Pfeil. Wenn das 
Mas chin en programm vollstandig eingegeben ist, kann man 
das Hiltsprogramm mit »NEWs I6schen und das Basic- 
Programm (Listing 2) eingeben. Abgespeichert wird das kom- 

pfette Programs 1 1 . ■ i RUf-; ■: ■ u inn man das 

eingegebene Programm. indem man es mit j>RUN« startet und 
als Startadresse 27472, als Endadresse zum Beispiel 30000 
eingibt. Die ausgegebenen Daten kann man mit dem Listing 4 
vergleichen. 



i 


REM ZSO-C 


isassewbter von 




Axel 


Schiinice 


10 


BORDER 1' 


PAPER ,1- INK 7 ■■ C 


LS 






20 


INPUT "St 


artadresse ■ " j s 


30 


INPUT "Etwiadresse ■■ ";e 


40 


PUKE 2500 


>,*.- INT '>-'256 >*25 


6: POKE 2 l j@0-3, 


!NT <,s.s£56>> poke 


25004, e-IHT <e 


'2365*256: poke 25 


005 > 


NT Ce,'2S6 


) 


50 


RANDOMIZE 


U3R 27472 


66 


GO TO 20 




100 


BORDER 2^ 


PAPER &■ INK I- C 


LEAR 


24993 




110 


PRINT AT 


5,5; BRIGHT 1; FLA 


SH 1 


" DISASSEMBLED Ver = i on 3"; F 


LASH 


0jAT 10,0 


" 1934 by ftxel S 


Chir»i 


ce , Ve I ber 




120 


PRINT AT 


15,0; * LOAD ""CODE 


ISO 


PRINT #0, 


1 2u.Pi We i feerro&ehein 


Taste dn.'.ecker 


": PAUSE @: PUN 


9930 


SAVE "Dis^S&.lll- LINE 10&- 


SAVE "NLVOATA 


'CODE 25000,3213 



Listing 2. Basic^Drprograinm 



Urn Listings von Maschinenprogrammen zu erstellen, gibt 
man .POKE 28199,3* ein (normal: PEEK 28199 = 2). Da- 
durch wird der Drucker- und nicht der Bildschirmkanal geOff- 
net. Die Anzahl der Zeichen pro Zeile muB bei den meisten 
DruGkemauf 32 gesetzt werden. Man- kann naturlicb auch ei- 
ne eigene Ausgabe routine antertigen. 

Umarbeitung moglich 

Diesmiissen auch Besitzer Krider-isr Cci-jlertypen tun, da 
die Routinen 5633 und 8252 spectrumspezifische ROM- 
Routinen sind, die einen bestimmten Kanal offnen bezie- 
hungsweise eine bestimmte Anzahl von Bytes (BC) ab einer 
bestimmten Adresse (DE) ausgeben. Aulierdem mussen die 6 
Bytes von 27546 bis 27551 furandere Computer auch PJOPs 
ersetzt werden, da die Adresse 23560 ebenfalls eine spec- 
trumspezifische Programmvariable darstellt, die den Code der 
zuletzt gedruckle; i Tas Ie er i tl ■ &l I . "Jas Umschreiben des Basic- 
Programms (Usting 2) durfte nicht schwerfallen. 

(Axel Schimice) 



Anwendungs-Listing 



£5030 


= 000oat!iJ0aau0ag00S04E - 




25686 


' C36fiCC6fiDB6fiCl£3C£63 -> 




25046 


= 4FD05C424--:C8F3F5C28 - 












: 42432^2CC:':2--u:.--:^-2 - 






: Deesc: ■ . :■ 37s ■■■. 






■■ 5EC25C422LBF524r.43i 1 - 




25718 


= 4E5h2CiFfcF703FBF654E -> 






■■ 455820414..-.2'"4146fl741 - 






= 5rt£i,. , -:FEF-:642235FBF52 -> 






; 4444-204t:4i.:2iJ42C35i;41 - 








139 




: 2i:2w4243Hy5E42C35&C3 - 






> 3FE;F3.i:.:_ "l .._ ---b53F -';■ 






■ 






' eF6a^--.:- ■ -3,-: '.-,F4t -> 


132 




= 444H4E5li2aC05C4445£C - 






- 3367448" .V4-4 2.X8FBF -> 


118 




3F6F5C284 44 52520C15D - 


, 394 




■ 22283F ^326'-. 1 654E432C -> 




2513a 


44C55DC:456C4tri-44£i;-BF - 






= 3FBF6644C564BF525354 -> 


161 


£5149 


524r:i;i4ri5220L:a4i^-'--: 






2631866F034553D87@43 -> 


121 


251 SO 


vy4t:4C2C44L.5f.C412C2ft - 






= 2C3FBF71412C283F8y65 -■■ 






4445Hy5E44C55C'CS5EC5 - 






; 43283FBF34638F525354 -> 

' 20J2B43F50CF6748CC70 -> 

5B4F2U3FBF455S202353 -> 

:■„•—,- ■■■- .365504F2C3F -> 

;■■;!.:, ■■.■ O .645 ■ 


635 
151 
7fc>9 

2 a 9 


2524a 












252 /'a 


C^5i;:4,;2:_-_.,__ :_ 2X85C - 




| 1 


402C3FBF85683F525354 -> 
26:"-i5&675L:2?5C:.-;, ; '5'.-:4?5 -> 

CC ?7L>B .VC 1 74C274C374 -> 


',;-! 




422CCC5C442CL.B5C422I: - 






C474C574CS74CC74DB74 -> 






C15C432CC-: . 4.S2C-C35C - 
























0:^34323335^4 3230353 - 






C373C4T''3C57SC878CC78 -> 






432C315C4428C250442C - 






Dfc:78C-?yC273';;.379C479 -> 


661 




C3';.i:442CC45C442CC5SC - 




. 'i.ii.;m 


0b/9C:::?3CC7?D3738i86 -,:■ 






442C38534423'X5C4420 - 






t i^Hi -7fl -> 


334 


2541Q 






















123 


25438 








C36l302Cl46C302CC56C -> 




25440 






















115 


25460 


46 2 3235 C-Mi-C 3852462 l: - 




26116 


3i£f:c'j6- -:_. .-f-x-iac ~> 




25470 


':C5C4S2:::iv&5C4:S£CC15C - 


1124 


26 1 26 




111 


2548a 


40236: : .: . ! ■ :':■:, : ■■ 




26136 






2549 a 






£6146 
















835 


23516 






26130 




?? 


25543 


5t3 . :: _^. 2-jC4i£i; -■ 




26130 






1:5550 




1332 


Z6266 


C16C342CC26C342CC36C -> 


633 




41 ;...;...-;■:_ -.___::.5C412C -. 






342C346C343CL-5oU34 £ :l: -.:■ 






D65i_4i2.:.-., - -vif.era^p _• 






i.:y6C342CCC6C342CDBSC -> 






845F355FX65F0C5FC>e5F -. 










2552 a 


C16aC260C_: :-66C566 -. 












i:86308863F. " : -4C264 - 










256 IS 


. C86434S4C564C8643364 -, 










25626 


;;.'[>64CiS£C26aC 362C4€2 - 








301 


2564'3 










it!. 


25 65^ 


::o : .1">.^ : -':l.-:i V _ .-_ -, 








i 07 


2566a 


:-v..-;::.-:6:::C-362Ci:SBt'26;: -. 


II5T 


26316 


"Ji 5i-i _i - 




2",-u 


CJ6mC26HC36hC46hC56FI -; 


is@s 


Listing 3. 


>Hexcode« 





60 sffll 



Anwendungs-Listing 



-> 1139 



:6-i2a :.'!=::r.:-).::--;iCu; ; ;.03.i:-i:::,C:i:.-;D - 

:6430 ■ 3:.2C.cyGii3±r.r,-€.:yj\ijL -■■■ S:M 

16456 -- 3Sl.i I 4.X -> 916 



I 



il2CCS6E312CC8SE3Ui; 


-> 


396 


:CbE3 1 2CDBSE3 1 2UJi SE 




1132 






891 


46<L32--'o:^-r . -■:.:$££. 


-> 


Hit 




-> 


925 


."-L -■ :-36E 




1102 








i. ';.:.... 


-;• 


1143 








3SE342CC46E342CCb6E 


-> 


1110 


42CC8£E342CCCSE34 -■■.:: 




912 


B6E342CC16E352CC26E 


-> 


1129 


52CC3SE352CC4cE352C 




932 


56E352CCS6E35-'UCC6E 




112=. 


^2i -[.'Bf-'E35^CC16E362C 


-> 


924 


26E362lu3pE-. I.-46E 




1111 






911 


i:^"J-;2CL'3i^3bJCC16E 


-> 


1142 


72iJC2bE372cC36E372u 




936 


46E372CC5SE372CCSSE 




1121 


72CL:CbE3?vCDB6E37-'L: 




346 


lyyyyyyyyyy^yyytiyy 


-> 


1345 


rj:-.:y:-rL[buaafc:ij!i!t;.a0yyc:u 




1239 


y y y :-: y y y y y y fj :-. y y y yy :-:y 










iisa 


^ina&eaese 


-> 


1230 


'.-. :-; (■'. :-; y H :■' ;-; :■ : y i -i y w ;-: ii F: si i-: M 




1230 


:■ e ■:■:■:■: ■: >:i7i422C2343 


-> 


9?a 


y.-j:j:s43j;92ijC">:e.J4i:C3 




1U29 


C283F3F292C42C34E45 


-^ 


751 


7524554CE494O20665C 


-> 


1990 



LOGITEK 




NUR 19B,- DM 



80-KAAM-Modul 



HIGH-SPEED 2016 



NUR 7,95 DM 




(Or Heim- 
computer und 
Peripherie aller 
Art beweisl seine 
Leistun g sfahig keit: 



absolute Niedrigstpreisi 

ant Anlrage 



GP 50 S 289,- 
GP 500 AS 499,- 




BRANDHBSSE KNOLLEBPRHSE 



CSV RIEGERT 



SOFTWARE SPECTRUM HARDWARE 



MICHAEL sb?5 NAUJ0K5 S%„„ 

ZX-Spectrum 

Reparatur-Schnelldienst 

Computer S Medientechnik. Heinz Meyer, 

4060 Viersen 1, Telefon 021 62/2 29 64 
Rufen Sie uns an! 



Anwendungs-Listing 



£6946 


492CCi7143£C2843fi3?£ ~> 


924 


27596 


20F87EE67FIj[>7700[>I.'23 


-> 


1359 


2 8 95 8 


2S43292CC3S142C35C42 -> 


303 


27600 


C67F2328F3£lC3DD2iBC' 


-> 


1516 




'■3£C233F3F:»988::i£4534 --> 


809 


27618 


617EE67F88: : ;25l:388588 


-> 


1391 




8980^B58£BB17i44£C2S -> 


1005 


27620 


ER6B 1S44FE0630 1 4FE04 


~> 


971 




43H9722S43292CC4S344 -> 


905 


27630 


30432RRR6 :. £345342 i 33 


-> 


734 


26998 


C55L.233F3F232C44C5S0 -> 


933 


£7640 


61344FC[v-863:; 883-831- 


-> 


1272 




88484D88Bi5B41£i:C371 -> 


1002 


27650 


2005CD9F6B 1 823FE4020 


-> 


919 




4ii£62843H9722S43£92C -> 




27660 


1 R3E0232R36 1 2RRR6 1 23 


-> 


749 




C56144i:-55C44452C283F -> 


935 


27670 


7E238B7F£88i2D856F38 


-> 


861 


27 'J 3o 


3M-l93o80494lj i £aB£5C41 -> 


1005 


27680 


e 1 24CDCCSD 1 S05DD7700 


-> 


924 


2704ii 


-> 


913 


27690 


DD£38B7F873828:.8888h 




1101 




4: 5i 2£ 'F -> 


922 


27700 


33 . . ' ■'■:■-.■. 


-> 


1232 


27060 


3F292C48CC80S0S05252 -> 


972 


27710 


FEDDC3FEEDC8FEFDCSFE 


-> 


2327 


270 76 


04714C2C2S43H9722S43 -> 


926 


27720 


32283 883;. 8.8; 288.3828-- 


-> 


885 




292CCC6143CC5C4S4C2C -> 


546 


27730 


E607FE0620284604SE02 


-> 


659 




2w3;-3FH93&3t;80524Ce4 -> 


1073 


27746 


■■....:. . 8. . 


-> 


1405 


27100 


714t.2C£343fl980S353C"'0 -> 


1021 


27750 


3886BDBR6E:231SF1D077 




1200 


27110 


58883F3F288B53D38080 -> 


890 


27760 


00DD23231SE3CD338D21 


-> 


346 


27 1 20 


883071412C2843H97228 -> 


90S 


27770 


H86136t!437C9£lH86134 


-> 


929 


27130 


i i j 50 -> 






34 8 FB9FE E 888 4 7848881 


-> 


1207 


27143 


28283F3FR93880883030 -> 


1019 




0DH86B7E8BBFFE5B2830 


-> 


1429 


2715U 


8oy^y88o88888O8o3088 -> 


1280 




E52ftAfi61937EEi; r EE828 


-> 


1451 


27160 


30808888803888303080 -> 


1£S0 






-> 


1130 




8088888l:888080S0303O ~> 


12S0 




: 85RDD368828DD360 1 49 


-> 


778 




; ; ■■ ■..■.■■ -> 


1173 




^360258DLO888292382 




930 




4F5554C9803080804C44 -> 


1105 




462 80 3 DD 34 822 78 9 3885 




705 




844358B4494EC44F5554 -> 


1134 




CDBH3eiy33F:-3F238b8D 


-> 


1138 




C430308080484445D£43 -> 


1202 




3F6D1888FE482827237E 


-> 


893 




S84392494E49D24F5449 -> 


1033 




8BBF88F; : 488E8820iC8D 


-> 


1132 




1-4D243 -> 


1211 




350043DD.368:58FH8HH:R 


-> 


932 




5044D2494E44H24F5444 -> 


1018 




617EF£DD2803D;j34013D 


-> 


1236 




l:'28080y0808880808080 ■-,> 


1362 


27900 


23D8.'23E123i885L'87730 


-> 


920 




-> 


1230 


£7910 


DD23BB722388231S82y6 




S15 




yBt:o8080888888808880 -> 


1280 




10DD213l:'61DD7E00FE49 


-> 


1230 




-> 


1280 




2883:.887!i3'FE^3£S8E'-E 




1041 


2729S 


88838888388'838888y38- -;■■ 


1283 


27940 


59288HM823lyE9DD21BL: 


-> 


1088 


27300 


38888088888883888083 -;- 


1280 


27950 


61 RF 


-> 


1265 


27310 


33338888888880803030 -> 


1280 




36O149DD360£58DD£3DD 


-> 


97& 


27320 


£84848fi94844R0494E43 -> 


879 




■■ ■' ■ ■ :" ■:■ 


-> 


1241 


£7330 


B0444543M04 144442641 -> 


822 




■EDl.86: 




12o 5 


£7340 


FIC4144432041RC414443 ~> 


841 


■-;7990 


:::--:8:::-:.-;^:.:!>3^8823&D23 


-> 


655 


27350 


23«v848! ;; :CS342432041flC -> 


837 




7 EL£ t_ 




951 


27368 


^35542 -> 


802 




0D886DDD368O29DC'23C;2 


-> 


1291 


27370 


A0434 1 4C48R05&555348 - > 


924 


£8020 


DD21B4612HHH613MR36: 


-> 


1163 


273*8 


■" ■ :. : 8 .!■...:■ -> 


1009 


28030 


477E0F0FOF8F8QJSF6872 


-> 


840 


27390 


44R04F52FI0584F52R842 -> 


1024 


23048 


L.:D8K6O8818FI69E60F8- 




1393 


274O0 


4854R858455330534554 -> 


947 


28050 


20F F3R38o28^07DD7700 




963 


27410 


■HM4-J4E -> 


1020 


28360 


8O8303ES2RRR613Rfl&61 


-> 


1318 


27420 


HU4F5554R0525354R052 ~> 


1059 


28070 


22oD2oFL5E235621R361 


-> 


893 


27430 


4388524843H85252F1052 -> 


1027 


28:088 


24 


-> 


1241 


£7440 


fiZZ c ^41 ~> 




28090 


8R23E52 18.86 135 1688 18 


-> 


679 


27456 


H038b24_:^^ -8187886568 -> 


1035 


£3100 


;9EB7fl 


-> 


1766 


27460 


6B23786E6: ---"8676C69 -> 


1004 


26110 


r60o£S14£18F£78D5238 


-> 


760 


£7470 


63E82tRE618-207S7723 -> 


947 


23120 


839.BiS812iE788ED8238 




929 


2,-480 


10FT.3E0132R861DD21FIE -> 


1074 


23136 


o8E318iL'2i6230ED523O 


-> 


790 


27490 


88H-~- V8-:j8:-8'2:.4.^ 


1448 


28140 


83F8i8;821y38wEUS233 


-> 


696 




040E01CPRB683!.'i:v5S38 - :■■ 




23150 


83EB1815EB18181iF8P8 


-> 


1039 


27510 


18213F6e7ECBBFDD77@0 -> 


1079 




CIM36E1118FCCD186E11 


-> 


988 


27520 


8B7E23I882323:' 88874^8 


1333 


28170 


9CFFCD1S6E11F6FFCD1S 


-> 


1497 


£7530 


8D265E2rRR61£.D4BFi861 -> 


1239 


23180 


6E11FFFF383F361938F8 




1139 


27540 


38800822H-I8:.3R0S5CFE -> 


728 


28130 


ED52DD7788DD23393E32 


-> 


1180 


27558 


88332-. :8,22.83:"33i::_' - 


1375 


83200 




-> 


754 


£7560 


5238f-i58921BE6iBB7E23 -> 


1£S4 


28210 


322i:88-8 .': 388"- 8:.-223-.,73 




293 


£7570 


28FBieF90D20F6C9D65fl -> 


1352 










27580 


E521B76flCB?E2328FB3D -> 


1267 


Listing 3. 


■Hexcode« (SchluB) 
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3D-Grafik 

Es gibt gute 3D-Grafikprogramme, die 
sind aber meist sehr lang. Dieses hier 
macht einige Kompromisse in der Be- 
dienung, ist dafiir aber extrem kurz. 

Dasfolgende Programm besticht dure h seine KQrze und Ein- 
fachheitundistdadurchleichteinzutippen. Es stent erslaunlich 
dreidimensionale Grafiken dar. Verdeckte Linien werden er- 
kannl und weggelassen, das heiBt, daB Flachen Oder Linien. 
diemanbeieinem undurchsichtigemKorperniclitsehen wiir- 
de, auch nicht geplottet werden. 

Prinzipieli kann man zwar jede Funkiion verwenden, ich habe 
mich abet auf vier recht interessante Kurven beschranki. Wie 
man das Programm beliebig erweitem kann, erklare ich sparer. 
Wie enrsteht eine Grafik? 

Ein beliebiger Abscfinitt der zu plottenden Funktion wird urn 
eine Acnse gedreht, die am linken Ende des Grafen parallel ZLir 
Ordinate stehL Von oben gesehen gibt diese Drehung eine 
kreisfdrmige FlSche. 

Wurde man dieses Gebilde in der Mitte du re hschn eider und 
von der Serte aus betrachten, so sahe man den Funktionsaus- 
schnitt in doppeiter Ausfuhrung — links die Spiegelung und 
rechts das Original, (siehe Sklzze!) 

Mein Programm berech net eine Draufsicht von vorne auf die 
sich ergebende Rotationsfigur. 
Wie benutze ich das Programm? 

Nachdem Sie das Listing eingetippt haben, starten Eie es 
durch .RUN*. 

Jerzt konnen Sie die Form der gewiinschten Grafik wahlen. 
Dabei stehen Ihnen, wie schon erwShnt, vier Grundversionen 
zur Verfilgung. Nun geben Sie den Verzerrungsfaktor ein, der 
zwischen und 3 liegen muB. Null bedeutet gerade Draufsichf 
von vorne. Je groBer dieser Faktor ist, desto seitlicher sefien 
Sie auf die Flache. 

Tja — und jetzl brauchen Sie nur noch etwas Geduld. Die 
Prozedur dauert namlicri off ilber eine halbe Stunde, was nicht 
an den benOtigten Berechnungen liegt, sondern an Ihrem 
Spectrum, der sich fur die hunderte zu plottenden Pixel reich- 
lich Zeit H8t. 

Daftir werden Sie aber am Ende durch faszinierende Ansich- 
ten belohnt, die natilrlicb mit *COPY* auf Ihrem Drucker uer- 
ewigt werden konnen. 

Falls Ihnen das Programm nach den ersten Minuten doch zu 
langsam erscheinl. .so Konnon Sk-j es beschleunigen. indem 
Sie in der Zeile 190 die Schritrweite erhohen: 
zum Beispiel 190 FOR x=— xO TO xO STEP 4*10 

Durch die jetzt erreichte Geschwindigkeit werden die Kur- 
ven grober, da Zwischenwerte von Geraden verbunden wer- 
den und damit viele Berechnungen erspart bleiben. 

Mathematisch begabten Tuftlern wird es leicht fallen, die 
Zeilen 340—370 fur andere Funktionen ihrer Wahl abzuan- 



sSllfe 




Hardcopy (Menii) 



SCREENS 1, Zerrfaktor 




SCREENS 1, Zerrfaktor 3 



Das Grundprinzip isi Folgendes: 
340 LET yy=»FunktJon f(xa)« * Z 

Den Faktor Z am Ende der Zeile miisss 
bestimmen. 

Falls Sie das Bild durchsichtig, also rr 
wiinscrien, so loschen Sie die Zeile 150. 

Probieren Sie rubig einmal ein paar Veranderungen, 
bestimmt SpaB machen. 

(Martin Hilpert) SCREENS 2, Zerrfaktor 



n Sie experimentell 
it verdeckte Linien 
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3630 Coburg a 

"8t. 83881/38173) 8 
Jan . 1965 n 

taunaattansnoaanaan 

20 BEEP 1,20: BORDER 7: PAPER 
: INK A- CLS 

-_.:r 5:"' ■ 
■9: BEEP 1,40 

40 DIM Z 1256) : LET XX=0 
100 PRINT QUER 1:RT 10 . 11; "3D-G 



110 LET ai=" 



140 REM Rn: 



. Ty F: 



der era 

INPUT 
J4 THEN 







7- 
























































300 




















000 


REM 


Rp 


--chnung 






















Xd 




320 


REM 


Rp 




















330 










































TO _;-lQ 














:-'-. 














t ■_ h n u n ■? 



THEN GO TO 



5TEP 4*1 



BEEP .001, 





50 


GO T 


.5 + 


4 


*40+8 


a/3 


* 


L0: GO 


3*2 


- 


a ^20) 



390 LET X 1=1 NT 
400 LET yl=INT 



410 


REM flbfrag 


ct*r 
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500 


REM 





LN GO' TO 130 



Basic-Listing »3W3rafik« 
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SCREENS 4, Zerrtaktor D 




SCREENS 4, Zerrtaktor 3 



v 




Function 
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Platinen-CAD 

Mit diesem Programm fur den 48- 
KByte-Spectrum ist es moglich, elek- 
tronische Schattungen zu konstruie- 
ren. 

Das Programm arbeitet mil zwei Grafikseiten, das heiSt es 
lassen sich zwei Bildschjrme mil Schaltungen beselzen. 

Es wircl eine automatischeBauteillistegefuhrtZeichnet man 
ein Bauteil, so wird es automaiisch numeriert und sein Wert 
wirdmittelslNPUTabgefragt. EinzelneBauteirwerteoderauch 
eine ganze Llste lassen sich sparer loschen. 

Eine Hardcopy der Grafikseite auf einem Drucker ist mog- 
iich. Entsprechende Routinen enthalt das Programm. Selbst- 
verstandlich kann man einen "SCREEN- auch auf Kassette 
autnehmen. 

Zwischen den beiden Biidschirmen laBt sich beliebig um- 
schalien. Das geschieht mittels Druck auf eine bestimmte 1&- 
ste, dazu sparer no^i'mienr. ! iier sei nursovielgesagt Eswird 
zum Umschalten eine Assembler- Routine verwendet, welche 
auBerordentlich schnell arbeitet. Auch die Bauteillisten lassen 
sich ausdrucken oder auf Band speichem beziehungsweise 

Dbrigens: Zu dem Programm darf nichts mehr hinzugefugt 
werden, daesden ganzen Speicherpiatz (48 KByte) einnimmt. 
Die Steuerung der einzelnen Funktionen des Programms ist 
sehr einfach. Jede Taste wurde mit einem Bauteil Oder einer 
Funktlon belegt. Man bestatigt also nur den entsprechenden 
Buchstaben und die Unterroutine wird angewahit Damit dies 
schnell genug funktioniert. wurde eine spezielle Programmier- 
technik angewendet. 

Bei elektronischen Bautellen Draucht man nur die Buchsta- 
bentaste zu betatron, dio di-un Anfrmgsbuchstaben des Na- 
mens des jeweiligen Teils entspricht. Mafigebend sind hier die 
deutschen Nam en. 

Fur Widerstand tippt man »Wt, fur Transistor sT=, fiir einen 
Kondensator »K« und so weiter. 
Fblgende Funkiior.en lasson sk'rM ausfuhren: 

Taste Wirkung 

W Widerstand 

T Transistor 

K Kondensator 

D Diode 

S Spufe 

B Batterie 

G GlOhlampe 

P Potentiometer 

E Erdung 

U Ubertrager 

L Lautsprecher 

M Mikrofon 

Die obigen Tasten fuhren also allesamt Bauteile. Weitere Funk- 
tionen sind: 

Lotverbindung 

V gesamten Bildschirm loschen 

Y Eine Bauteilllste loschen 

H Ein Ernzdlfiil ri,t; einer best. Liste 

loschen 
F Saven bzw. Laden der Bauteillisten 

Z Bildschirm- Hard copy 

R Ausdruck der Bauteillisten 

O Saven bzw. Laden des Bildschirms 

C Umschalten der beiden Bildschirme 

Als Cursor dient ein PLOT-Punkt (Pixel), der sich in einem 



i Printfeld befindet. Bewegt wird dieser Punkt mit 
den Tasten 5-8. Mit der Taste »0« wird ein Pixel gesetzt, und 
dieses ist dann der Anfangspunkt einer zu zeichnenden Linie. 
Also, urn eine Linie zu zeiohnen betatigt man die Taste »0« 
an der gewunschten Bildschirmstelle. Die Bildschirmumran- 
dung ist dann rot. Nun fahrt man mit dem Cursor zu dem ge- 
wiinschten Endpunkt der Linie und betatigt nochmals die Ta- 
ste »0«. Die Bildschirm urn ran dung ist dann g run. Man muB also 
immer Anfangs- und Endpunkt der Linie lediglich mit »0« mar- 
kieren; das Zeichnen der Linie ubemimmi der Computer sel- 

Noch etwas zum Cursor. Betatigt man dieTasten 5-8 zusatz- 
lich zusammen mit SHIFT, so laBt sich der Cursor urn jeweils 
eine PLOT Position vcrachisbiZ-r! jomMishiisoeirigenauesAr- 
bcitL'-n aewahrleistet 

Nun etwas zum eigentlichen Zeichnen der elektronischen 
Bauteile: Man bewegt den Cursor an dte 1 1. ".vi i , ■>' : .hsifs ir- 
gendwo auf dem Bildschirm und betatigt dann eine beliebige 
Bauteiltaste, zum Beispiel jW«. Nun fragt das Programm unten 
am Bildschirm die Richtung ab, in die das Bauteil gezeichnet 
werden soil. Die mbglichen Richtungen bei alien Bauteilen 
sind: Norden, Stiden, Westen und Osten. Diese vier Richtun- 
gen werden wieder mit den Cursortasten 5-8 bestimmt. 
Mbchte man zum Beispiel ein Bauteil in Richtung Westen (im- 
mer relatiu zum Cursor) gezeichnet haben, so betatigt man Ta- 
ste »5"i und so weiter. Die Bedienung ist somit einfach gehal- 

Hat man einmaf das falsche Unterprogramm antj-owSrii;, so 
kann man es durch betatigen der Taste »0a wieder muhelos 
verlassen. Dies gilt in gleichem MalJe fiir alle Funktionen, au- 
I5er fiir die, die andere Antworten, wie ja Oder nein verlangen. 

Ist das Bauteil gezeichnet. so mufi noch sein Wert fur die au- 
tomatische Liste eingegeben werden. Dies trifft jedoch nur fur 
WiderstaYide, Transistoren, Dioden. Kondensatoren, Potentio- 
meter und Spulen zu. Bei alien anderen Bauteilen mu3 kein 
Wert eingetippt werden. Obengenannte Bauteile haben je- 
weilseineeigcno tJaaii-ilisreiOrsichalleine. Alleanderen Bau- 
teile (wie Batterie, Lautsprecher, Mikrofon, Erdung und so wei- 
ter) haben eine gemeinsame Liste Widerst&nde, Transistoren, 
Dioden, Kondensatoren und Spulen werden automatisch mit 
fortiautenden Ziftem numeriert. Insgesamt lassen sich 240 
Bauteile speichem. Pro Bauteilgruppe 40 Stuck, Ist diese Zahl 
erreicht, sollteman sich die Bauleilliste ausdrucken lassen, um 
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weitermachen zu kbnnen. ohne Bauteile zu loschen. Im allge- 

meinen wird man tiber nich: noviok: Eaaieile benotigen. Noch 
etwas ist dazu zu sagen: Bei der Eingabe der Werte konnen 
insgesamt 8 beliebige Zeichen eingetippl werden. AuBer dem 
reinen Zahlenwor. i'issoi"; :■■." ' s!-so auch noch andere Kurzin- 
lotmationen eingeben. Bei der Lisle, die die diversen Bauteile 
'...:i:ir:-v '.■:■.!■.;>. :■::;; ::■ _.d..;i:, !:!■ .■ . :j:-irl. v,vr.:(.wr r--.; ;i rr:f .■:.;* 

verwendeten Bauteils automatisch gespeichert. 

Zur Verdeutlichung der hi-:;: samsc-iton sehriftlichen Erlau- 
terungen. sollte man auch die beigelegten Hardcopys heran- 
ziehen, diemii dem Pre ;;n;;^eriia; ■.■vi./rrieri. Uoriyens 

wurdensieauf einem SeikoshaGP-50Serstellt r der sich hier- 
fur bestens eignet. 

Fur die auf der Hardcopy wiedergegebene Schaltung wur- 
den etwa 5 Minuten benotigt, urn sie aufzubauen. Die Bedie- 
nung des Program:";' isi ■■.■vi:'klic!" einfach. Um es noch einmal 
deutlich zu sagert: 

Fur ein bestimmtes Bauteil, tippl man don Anfangsbuchsta- 
ben des Namens des Bauteils an, aiso: »W« filr Widerstand, 
»B« : li; Batierie zum Beispiel. 

Und jetzt erfolgen detaillierte Erklarungen der einzelnen 
Mbglichkeiten und Funktionen des Programms. Man kann die- 
se Liste neben den Computer legen, wenn man mii diesem 
Program m arbeitet 
Taste »W« 

Zeichnet in vier Himmelsrichtungen einen Widerstand. Auto- 
matische Numerierung und Listenfuhrung. Wert muB einge- 
tippt werden. 
Taste »T« 

Zeichnet in vier Himmelsrichtungen einen Transistor. Es kann 
zwischen PNP oder NPN gewablt werden. Automatische Nu- 
merierung und Listenfuhrung. Bezeichnung (zum Beispiel BC 
238) muQ eingetippt werden. 
Taste nK* 

Zeichnet in vier Himmelsrichtungen einen Kondensator. Es 
kann zwischen einem ungepolten und einem gepolten gewahlt 
werden (geplot=Elko). Automatische Numerierung und Li- 
stenfuhrung. Wert muBe eingetippt werden. 
Taste »D« 

Zeichnetinvier Himmelsrichtungen eine DIODE. Es kann zwi- 
schen nomialer Diode und Zenerdiode gewahlt werden. Auto- 
matische Listenfuhrung und Numerierung. Wert muB einge- 
tippt werden. 
Taste i>S« 

Zeichnet in vier Himmelsrichtungen eine Spule. Automatische 
Numerierung und Listenfuhrung. Wert muli eingetippt werden. 
Taste "P- 

Zeichnet in vier Himmelsrichtungen ein Potentiometer. Auto- 
matische Listenfuhrung. Wert muB eingetippt werden (Zahltzu 
den Widerstanden; Unterscheidung macht man am besten 
durch Zusatz von P.). 
Taste »B« 

Zeichnet in vier Himmelsrichtungen eine Batterie. Automati- 
sche Listenfuhrung. 
Taste "Gu 

Zeichnet in vier Himmelsrichtungen Gliihlampe. Automati- 
sche Listenfuhrung. 
Taste »E« 

Zeichnet in vier Himmelsrichtungen das Erdungssymbol. Au- 
tomatische Listenfuhrung. 
Taste »U« 

Zeichnet in vier Himmelsrichtungen einen Ubertrager (Trans- 
formator). Automatische Listenfuhrung. 

Zeichnet in vier Himmelsrichtungen einen Lautsprecher. Au- 
tomatische Listenfuhrung. 
Taste »M« 

Zeichnet in vier Himmelsrichtungen ein Mikrofon. Automati- 
sche Listenfuhrung. 






e Lotverbindung. 



Taste nO« (O wie in Vogel!) 

Zeichnet an der momentanen Position e 

Taste "A« 

Es wird der Bereich geldscht, der blinkt (eine Proposition). 
MuB man ausprobieren. 

Dieoben aufgezeigten Funktionen habenalle etwas mit dem 
Editieren einer Schaltung zu tun. Gemeinsam haben alle oben- 
genannten Funktionen, daB sie immer von der momentanen 
Position des Cursors (PLOT-Punkt, blinkend) ausgehen. 

Weitere Funktionen 

Taste »V« 

Bildschirm loschen 

Man kann den (momentan sichtbaren) Bildschirm loschen. 
Tippt man diese Taste wird aber nicht sof ort gelbscht, sondern 
erst noch einmal gegengefragt. 
Taste «Y« 

Mr! dieser Funktion kann man eine Bauteilliste loschen. Ge- 
lbscht wird vollstandig und erst nach ausdriicklichem Wunsch. 
Auch hier kann man mit Taste «0* vemeinen, jedoch nur, bevor 
man den Buchstaben des Namens der Liste noch nicht einge- 
tippt hat (R,T,D,C,L, Oder E). 
Taste »H« 

Hiermit kann man ein spe 

Liste loschen. Man gibt zuerst die Nummer des Bauteils ein 
und dann die Bauteilart. 
Taste »F« 

Mit dieser Funktion kann man die Bauteillisten Laden Oder auf 
Band sichern. Man verwendet am besten eine spezielle Kas- 
sette. In der Funktion »SAVE» wird ein VERIFY-Durchgang ge- 
macht. Dafur muB das Band wieder zuruckgespult werden. 
Tritt ein Tape Loading Error auf, so gibt man GOTO 4000 ein 
und wiederholt den SAVE-Vorgang. GOTO 4000 kann immer 
angewendet werden, wenn man aus irgendeinem Grund aus 
dem Programm gekommen ist. Daten gehen hierbei nicht ver- 

Das SAVE der Bauteillisien kann swhi ■■.■■orieilhafl sein, wenn 
man die Konstruierung des Schaltplans zu einem spateren 
Zeitpunkt fortsGt;'sn moehUv. ium ac-spici r:m anderen Tag. 
Dazu sichert man beide Grafikseiten auf Band (siehs Taste 
sQ«) und die Bauteilliste. Spater ladt man dann zuerst das 
Hauptprogramm und dann n ■ ,:.■■ Ii to:': und die beiden 
Bildschirme. 
Mit der Taste »F« wird die Bauteilliste auch geladen. 

Hiermit kann mar', wine Hardoopy des momentan sichtbaren 
Bildes auf dem angeschlossenen Drucker ausgeben lassen. 
Mochte man beide Bildschirme ausdrucken lassen, so laBt 
man erstmal den einen ausdrucken, schaltet dann auf den 
zweiten um (siehe Taste aC-) und laBt den ebenfalls wieder mit 
Hilfe der Taste »Z« ausdrucken. Als Drucker eignen sich der 
kieino Sineiair, der Alphacom und der Seikosha GF-50 sowie 
der GP-100 gut. Vorrang gebe ich jedoch den beiden 
Seikosha- Druckern, da sie im allgemeinen ein deutlicheres 
Druckbild abgeben, das sich auch miihelos kopieren laiJt! 
Taste »R« 

Hiermit lassen sich die Bauteillisten ausdrucken. 
Taste »Q« 

Mit dieser Funktion laBt sich der momentane Bildschirm ab- 
speichern, beziehungsweise ein SCREEN von Band laden. 
Taste »C« 

DieseFunktionistsehrwichtig. Sie gestattetes zwischen zwei 
Grafikseiten blitzschnell umzuschalten. Jeweils eine Grafiksei- 
te ist auf dem Bildschirm zu sehen, und die andere ist iiber 
RAMTOP gespeichert und ist somit auch vor NEW geschutzt. 
Jedesmal wenn man die Taste »C« tippt, wird zwischen den 
beiden Grafikseiten umgeschalUii, da:-; litil-Jt sie werden aus- 
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e wird auf den 
_ eholt 

Dazu wird eine ausgeklQgelte Maschinencoderoutine wer- 
wendel, die dief-Mi Ajitausch io.hnel! und sicher gewahrlei- 
stet. Die Routine ist 33 Byte lang und ist ebenfalls uber RAM- 
TOP gespeichert. 

Noch-einmaletwasaik-iemoiniss furalleFunktionengultiges: 
Hat man aus Versehen oinc nic-il iiswiinschte Routine ange- 
wahlt, so kann man diese durch die Taste »0> (Null!) wieder 
verlassen. Hal m;;ri Jhk Prooriii; 11 ■■■■. irna; ausprobiert, merkt 
man erst, wie leicht die Bedlenung ist. Am besten, man maclit 
sich eine Stichwortliste mit dor', wioh tigs ten Funktionen, dio 
man sich neben den Computer legt. 

Da ich das Programm entv-ickoli naaa. ;rn aelber elektroni- 
sche Layouts aufzubauen, gebe ich hier noch einige riutzliche 
Tips zum Aofbauen einer Schaltung. 

Am besten ist. man fangt mit den Transistoren an, denn sie 
bestimmen die Dimensionen der gesamten Schaltung. Dann 
sollte man Dioden, Widerstande und andere Bauteile einlu- 

Die Verdrahtung und LolsieNei . (Tasie *C;; *ann man zuletzl 
machen oder fortlaufend an die gezeichneten Teile ansetzen. 
Ich schlage vor. zuletzt zu verdrahten. 

Man kann auch grciflcro Sol-i;-iltun;:i-:n _'ei'.:hnen, ais solche 
uber zwei Bildschirme, indem man jeweils einen Bildschirm 
zeichnet, diesen dann ausdruckt, den Bildschirm loscht und 
w/eiter macht. 

UmesnocheiririH.':n LiinnivL.no ;,i rufon. Insgosamt lassen 
sich 240 Bauieile speichern, das durfte selbst fur groBere 
Echaltpianereichon. Undaicl' wer.n.'Jie Bouteillisten vollsind, 

kann man ja die Werte auch »zu FufJi autschreiben. 

Loscht man ein befits gozc ohnclo;. SJ;ju;eil, so sollte man 
auch dessen Weri .-.it :;ehe;- Lie-to ioscbon. Dazu wahlt man 
mit Taste »H«dio Funkticr, Eir/tiieil loschen. Man gibtzuerst 
die Nummer des Bauteils ein, die es auf dem Bildschirm hatte, 
und dann die Bauteilart, also zum BeispielR.T.C.D.LoderE. »E> 
steht fur diverse Bauelemente wie Mikrofon, Erdungssymbol, 
Ubertrager und so weiter. 



horizontate Komponente der Position de= 

Cursors 

vertikale Komponente der Position des 

Cursors 

List mit Zahlvariable rr der Widerstande 



Liste rr 



L"o -:!■■■:; iable cc der Kondensalo- 



Liste mit Zahlvariable dd der Dioden 
Liste mit Zahlvariable tf der Transistoren 
Liste mit Zahlvariable II der Spulen 
Liste mit Zahlvariable ee der diversen Bau- 
werden gebrauchi fur y.sri; tia'ungslinien 



ror!}, so gibt man »GOTO 4000« ein. Daien gehen hierbei nicht 
verioren, falls man dies sofort ausfuhrt ohne zwischendurch 
eine andore Taste zu betatigen. 

Die Variablen liste ist Fm allgemeinen nicht so wictrfig fiir das 
Verstandnis de blensindxx 

und yy. Sie reprasentieren die momentane Position des Cur- 
sors. (M. Malik] 



Die meisten REM-Zeilen mufiten aus Speicherp I at: or lin- 
den weggelassen werden. An den entsprechenden Stellen 
befinden sich lediglich Doppelpunkte (:), damit das 
gramm nicht zu unlibersichtiich wird. 

Der Programmaufbau ist im groBen und ganzen einfach. 
Es gibt einen Hauptteil und Unterprogramme. 
1000-3000 Variabiendefinitjon. Dies ist ein sehr wich- 
tiger Teil. Es ist beim Eintippen darauf zu 
achten. daR die Zahlen richtig eingetippt 
werden, sonst funktioniert das Programm 
nicht optimal. 
4000-4200 Dieser Programmteil steuert den Cursor 

und die Unterprogramme. 
4200-5000 Dieser Teil ist verantwortlich fur das Zie- 
hen der Verbindungslinien. 
ab 5000 Ab hier folgen nur noch Unterprogramme 

fur die einzelnen Bauieile und Funkionen. 
9800 Ab 9800 befindet sich ebenfalls noch ein 

sehr wichtiges Unterprogramm, das die 
Richtung abfragt und an die einzelnen 
Unterprogramme zum Zeichnen der Bau- 
teile weitergibt. Programmaufbau 



10 REM 



1305 

iaia 

1025 

1330 



1170 
1175 
1180 
1190 

1195 

.. I.: . 

2013 



2333 

■ : ■ 

2343 
2045 
2350 
£055 

3300 



MfiRKUS MP.LXK 
5CHLESISCHER UEG 4 
4-77S LIPPETflL 



GO 5UB 3302 

LET El-fi 

POKE £3300,198: POKE £2381, 

1310 LET L-7S50 

1220 LET M*7A10 

— 1.9990 

1243 LET U=7670 

iasa let v»7?ffla 

1260 LET H=77fl« 
1270 LET r=7S30 
12S0 LET 2-7910 
1300 LET Qa8050 
. ST J=9980 
1330 LET K=S300 
1298 LET R-7952 
._, LET YY=92 

POKE 23658, a 
LET RICHTUNG-9800 
LET Y« = -' 

















P=SSS0 
P. .6650 


-■■■:;. 






6*6300 


i r ! 
















Lit" 


U=6390 



■■ 



dim TfU 

DIM L*U 

DIM ES14 



LET DD-1 
LET TT=1 
LET LL-1 
: LET EE.l 
:EM RNFP.NG 



68 alfe 



Anwendungs-Listing 



3081: 
3032: 
4050 LET fl»«INKEY$ 



then go to <iasa 

" THEN PLOT OUER 
Sj PAPER BjXX.YY: RETURN 



INS. _, 
4065 IF fl*>*"fl" AND H*<="Z" AND 
flJ-:>"N" AND RB<>"X" THEN GO SUB 
UAL AJ: PLOT PAPER 8, INK 8, QUE 
R i, FLASH 1,XX,YY 

4070 PLOT PAPER 8; INK 8; OYER 1 
; PLASH 0;XX,YY 

40S0 LET XX«XX+< ICODE R* = SI - CCOD 
E fl* = 3) l +8*i .S^'S":. ■■ (R5="5") ) 
4090 LET YV=VY+ ! (CODE fl»=ll)-(CO 



>245 THEN LET I 



4137 IF 
4120 
4110 - " 



: LET XX=0: GO - 



>16S THEN LIT VY=168 
tiU TO 4120 
4115 I?" VY<0 THEN LET YY=>0 
*la5 PLOT PAPER S, INK 8, OUER 
; FLASH l;XX,YY 
4130 GO TO 4000 
4150: 
4160: 

4220 REM LINIEN 
4210 DIM X(2i 
4230 DIM Y (S) 
4 23S FDR N=i TO 2 
4240 GO SUB 4120 
4245 PLOT XX, YY 
4250 LET X <N> =XX 
4270 LET Y(N) =YY 
4280 IF INKEYJ-, ; 



I 50 TO 42 



4500 BORDER 2 

43B0 NEXT N 

4318 PLOT X(2) ,Y(2) 

43aa drru xti) -xta> ,V(i) -Y(S) 

4330 BORDER 4 
4340 GO TO 4230 
5090: 

5002: 

500S LET B*a "UIDER5TRN0" 

5010 LET HGRIZ-S1S0 
5015 LET UERTI=50S0 

532« CO -0 3ICMTUNG 

50se if yy.. ir.3 find aro-i then g 

TO 3990 

5083 IF YY<16 AND flflol THEN GO 

TO 9990 

5063 IF XX<2 THEN GO TO 9990 

5073 PLOT XX, YY: DRflU 0.flfl*3 

507S PLOT KX+8,YY + RH*3: DRRU 0,A 

fl*10 

5080 DRflU -4,0 

50S5 DRflU 4 . 

5090 PLOT XX .Y 



DRAU 0,-flfl*li 
+Afl*13: DRRU I 



5091 LET BBi=4: LET BB2=S: LET 6 
B3=12: IF XXJ240 THEN LET BB1*-1 
4: LET BB2=-10: LET BS3=-S 

5092 PLOT XX+SB1 ,YY+flfl*3: DRRU 
,3: DRRU 3 , i? : DRAU 3.-1: DRRU -1 
,-l: DRflU 1,-1 

5093 LET H(=5TR* I 
BBH: LET >""*- 



5120 IF XX US AND P.PU > 1 THEN GO 

TO 9990 

5130 IF XX)232 AND fifto-l THEN G 

TO 6990 

5135 IF YY'2 THEK C-0 TO 9990 

5140 PLOT XX, YY' DRRU AR#3,0 

5150 PLOT XX+flfl*3,YY+2: DRflU flfl* 

13,0 

5160 DRflU 0,-4: DRflU -fip.*10,0 

5173 DRflU 0,4 

5150 PLOT XX+flft*13,YY: DRRU flfl*3 
i® 

5151 LET B81=3: LET BB3=7: LET S 
B3=ll: IF Hfl=-1 THEN LET BBlx-13 
: LET BB2=-9: LET BB3--5 



S183 PLOT XX+BBljYY+4: DRRU 0,3. 
DRPrU 3,0; DRflU 0,-1: DRflU -1 . -1 
: DRflU 1,-1 

... : .. ,... ..... .. ....... . ..... -_... .... ,. : 

BBS: LET VVY=YV*4. IF YY*163 THE 
N LET YYY"YYY-1 

5154 GO SUB SlOO-rldsUfiL mil) L 
ET XXX=XX+BB3: IF LEN M(o£ THEN 

GO TO 5190 
- : ■--.-■ ■:-- ■•■■. .- . ■. ..-. ■. ■■;■ .. -:;-.■: !?_■ 
S190 INPUT "UERT: "J LINE R* CRR3 
52O0 LET RR=Rfi+l' IF RR = 41 THEN 
LET RR=1 
'J3ii. RETURN 
5300: 
530" 







3S="KONOENSRT0R" 








' Ei 


1ORIZ-5370 




























































































































■■. : D-iP.U 


















6 


PLOT 


XX+Hfl*13,Y\ 






PLOT 


XX+AAsll.Y 1 


: DRAW flfl*5 



5426 LET BB1=5 LET 663=7: LET B 
B3=li; IF Hfla-1 THEN LET BB1=-11 

LET B62=-9: LET BB3=-5 

5427 PLOT X.X + EBl,YY + 5: DRRU -2,0 
: DRflU 0.3. DRflU 3,(3 

5-;=-o let v-.-i^Yv+eea LET yyv=yy + 

























THEN GO S 






JflL MS (2) 


























































































































































5501 
*5 


PLOT 


<X, 




Hfi#ll 


DRflU 0, 


LET BB1- 




LET BB2=9: LET 



._. IF XX>240 THEN LET BB1.-I 
382 11; LET BB3=-7 

..■■■: :-. ■ . :.~ . . ■■ :■■.: ■ ■ :■-:- : : "- ■ :.:-:-■■■ ■ 
2,0: DRflU 0,3: DRRU 2,0 

5504 LET XXX=XX+BB2: LET YYY=YY+ 

><^ ■.. i. ■■ ■■,■...'■ ■ .'-.'i :'.''i. -!■■' 

+ lO*UflL MJ (1) ■ 

5505 IF CC>9 THEN LET XXX=XX+BB3 

: GO 3UB S100 + 1O*(JHL Mti.Si 

5520 PRINT BBj RT 1,0;" GEPOLT ? 

5S3i2 IF 7NKEV«<>'■■ I THEN GO TO BB 

5840 IF INKEYS.-B" THEN GO TO 57 

20 

5550 IF IHKEY*-"5 M THEN 00 TO BS 

33 

5560 GO TO 5540 

5S30 PRINT B0;AT 1 , 0; "PLUSPOL ?( 

RICHTUNG MIT CURSOR !)" 



5618 IF INKEYS="3" THEN LET BB-1 

: GO TO 5640 

5620 IF INKEY(="5" THEN LET BB»- 

1: GO TO 5640 

5630 GO TO 5510 



Anwendungs-Listing 



56413 PLOT XXtfifl*8*8B*5,YYt2; DRR 

U 0,3 

5645 PLOT XX+flR*8+BB*5-l,YY+3; 

RRU 2,0 

5653 GO TO 5738 

5663 IF INKEY**>"" THEN GO TO SB 



5673 IF INKEY$*"6-' 
1: GO TO 5733 
5663 IF INKEY*="7" 



THEN LET 8B-- 
THEN LET SB»1 



GO TO 5700 

BO TO 5673 
5708 PLOT XX42, 
U 2,3 

5705 PLOT XX + 3X 
RRU 3, a 

CT/Es INPUT "UERT: "; I 
i LET CC-CC+1: IF i 
LET CE*1 
5740 RETURN 
8800: 
5S31; 
5313 LET ejn-DIODE" 

ssso let lORjz-assa 

S33Q LET UERTI=5950 

^.-..:. ■■■.:. SiCHTUiNS 

53S0 := :■■■:.■•■ 132 RND flfl 
TO 9993 

5373 IF XX<16 AND RR< 
TO 9990 

5875 IF YVO OR YY>166 THEN GO T 
9993 

SSB0 PLOT XX, YY: DRRU P.R*16,0 
5335 PLOT XX + Rfi-vSV,'Y-3: DRRU 3,6 
5390 DRRU "~ 
YY-3 

5395 DRRU Rfl*5,2 
5930 PLOT XX+ : ;- 
5:n'i3 .C.T :■■■.=. vHhh;- -v 
5910 PLOT XX+RR*8 
5923 PLOT •■" 



flfl*B*B6*6: DRR 

fifi*B+6B«5~l; 

": LINE EitCCl 
IF CC-41 THEN 



-1 THEN i 
. THEN GO 



*5, -2i ' PLOT XX+fiA*3, 



DRRU 0,4 
DRRU 0,3 
DRRU 0,2 



+RA*ll,YY-3: DRRU 0, 

5922 PRINT 88 ; RT 1 , : "ZENERDIODE 
? -- iH3=g.aSH2!=BJ 

5923 IF 1NKEYS-. > " THEN GO TO 59 
33 

5924 IF INKEY*s"B" THEN GO TO 69 
39 

5925 IF INKeY(="B" THEN GO TO 59 
27 

5926 GO TO 5934 

5927 PLOT XX+RR*ll,YY-3: DRRU -R 

S929 LET BB1=3: LET BB2=7: LET B 
63 = 11: IF RBOl THEN LET BB1=-13 
: LET BB2=-9: LET BB3=-S 
3930 PLOT XX+BBl,YY+5; DRRU 1,0: 

DRRU 1,1: DRRU 3,1: DRfiU -1,1: 
DRRU -1,3: DRRU 0,-3 
5931 LET XXX=XX+BB2: LET YYY»YY+ 
_. . __ :s .. := .-— , ; _ t : ;:>.2i:3->l 

C.'JRL M*il) 

5933 IF DD>9 THEN LET XXX=XX+BB3 
: GO SUB 3100+10*URL MSC2) 
5939 SO TO 6050 

5950 IF VY>159 AND RAo-1 THEN G 
TO 9990 
5960 IF YYslS AMD Bfi <> 



THEN 



5005 PLOT 
5313 PLOT 

6323 PI 



DRAW 3 .3 
DRRU 2,3 
ODE 



PINT BO . RT I ,3 : " I5;-.ERDI 

(B3=i!;8@Hi8=sl 
6325 if :;-:".h-=i - ■■■ t ,-)=;.'! o-o to 60 

25 

saae if inkey$=-B" then go to 63 

5835 IF ENKBY*= j 'S" THEN GO TO 60 

45 

6343 GO TO 6833 

70 fife 



B34S PLOT XX-3,YY+RR*11: DRRU 

604o""LET EB1 = 5. LET BB3-3:_LET I 



>■:>: vESl, ■•.-. -ifiRr-y 

DRRU . 1. : Dl 
DRRU ! 



,0. DRRU 1,1. 

1: DRRU -1,3: _.. 

SO-i--: Li" -.■•:-: -v. +BB2: LET Yyy=yy+ 

RP-9 ." i-i ;;: -o" 7< r; DC' ;.D :3£ 5 1S 

3-*13~UAL H((li 

6049 IF DD>9 THEN LET XXX=XX+B63 

: GO SUB 3133 + lOitVRL H$ f£) 

5353 INPUT "UERT: "j LINE D*(DDI 

5360 LET DDaDD+1: IF DD=41 THEN 

LET DD = 1 

6078 RETURN 

6108: 

5102: 

5118 LET BIVPOTENTIOMETER" 

6123 l.~~ HCip:Z=5160 

6i;o l;- vert i=62S0 

614-3 GO TO RICHTUNG 

6168 IF YY(8 THEN GO TO 9998 

6178 IF XX:-23£ SrID HHO-1 THEN G 

TO 9990 

5133 IF XX-J.6 AND. hh ■; ;■ 1 THEN CO 

TO 9998 

6190 PLOT XX, YY: DRRU flfl*3.,0 

6195 PLOT XX+Rfl*3 . v T £: DRRU AR t 

13,0 

'"""-■. .... ■ . .: 

I RR* 

DRRU -RA*13,0 

■13., YY: DRRU AA*3 

RR*15,YY-3: DRRU -fl 

i, -1: PLOT XX+flfi*S>Y 

DRRU RRi2,8 
GO TO 629S 

152 AND RRo-1 THEN G 

16 AND fiflol THEN GO 



6210 DRRU 3 , -• 

32:5 :rr;.; 0', 4 

5220 PLOT >:::/;+, 

,3 

6225 PLOT 

A*10,13 

6250 DRRU 



6263 IF V 

TO 9990 

6365 IF Y 

TO 9993 

6267 IF XX>3 THEN GO TO 9000 

6270 ."LOT >:,-.. ■.-,. DRPU Hft*S 

6272- -LOT .,::X + 3.YY+fifl*3: DRRU 



6=75 DRRU -4,i 

6277 DRRU .1 .0 

6230 PlCO X.- . 

*3 

6235 PLOT XX-: 

,-flfl*19 

6,59'i DRRU 

H*5 "" 



DRRU ... 
5295 INPUT "UERT: 
6296 LET RR=RR+1: 
LET RR=' 



DRRU 8, -Rfl*18 
+RR*13: DRRU BjRR 
YY+flR*15: DRRU 13 
«; PLOT XX+6,YY+fl 



IF RR=, 



1 RETURN 
6333: 
5302: 

5305 LET BJ^'ERDUNG 11 
6318 LET H0RIZ=5335 
6315 ^5T ','ER-I=5.-=65 
5320 GO TO RICHTUNG 
6335 IF ■■,-■■/ i4 THEN GO TO 9998 
5337 IF XX;7 AND flflol THEN GO T 
9990 
&34S PLOT Xa , Y'Y : PLOT XX + RR..Y 



S3ii ,'LO": XX*Rfl*2,YY+4 

S 

5345 PLOT XX+RR*4^YY+3 


DRRU B, - 


DRRU 8,- 


6358 PLOT XX+fiR*6»YV*2 

6355 GO TO 6332 

5-36.S IF vY ;7 HMD flfl:; >1 

9993 

6367 IF XX ::4 THEM GO T 

6:370 R,.uT Xa . YY : PLOT 

6372 PLOT XX+4-,YY + RRi2 


DRRU 8,- 


THEN GO T 

9993 

X.YY+RR 
DRRU -3, 



Anwendungs-Listing 



XX+S,YY*HHSi 



LET ES (EC) =BS 



































:--■. ■; ■- -, 




























































6 ■ i'j 




































































54 2 5 


?' C, .:- 




CX+hh,YY 













5,0: DRP.U 3 . 16. DRflU Hfl,0 

6427 DPR'.- 0,-16. PRfiU flft , : QRI 

3,16: DRflU flA*4,0 
6430 GO TO 6450 
6435 IF VV,1S£ THEN IF flAo-1 ' 



6437 IF YY<1 

GO TO 9990 
64.36 If ,-.--■.,-£_ 

6440 P-..OT :-...■: . 



THEN IF ftH 



H*5. ' DRH 



■LOT 



+AA: 



DRflU ( 

DRAU 0, -flfl: DRfl 

DRflU , -fl 

: DRflU 

THEN 



DRAM .: 
flfi 

6442 DRRU -16,0 
U 16,0: DRhU 3, -hh*- 
6445 PLOT XX.YY+ftfl* 
h*5 : DRhU 16 .0: DRflU. *, , ■ 
6447 DRRU -16,0. DRflU 6, 
15 ,0: DRflU 0,flfl*4 

.: -_-;: _ ■;- ■-■■■ :-::-_.■ = :. ■: 

6455 LET EE=EE+1: IF EE = 
LET EE = 1 
5457 RETURN 
6450: 

5462: 

5i&5 lET B$="TRflN5IST0R" 

64JC LcT KOP.^-E-SOO 

6465 :_ET ',_RTI = 6560 

5490 GO TO RICHTUNG 

5500 IF XX 116 RND Ah:>1 THEM G' 

55.?|"lF_;-;X/S32 AMD HflO-I THEN 



i TO ' 



390 



... YY<S THEM GO ' 
9 390 

5510 CIRC.L3. ■..■:->7-hA .V :' 

6515 PLOT ■.-, -V: DRRU AR*6,Q 

5520 PLOT XK*7*hh.YV+1: DRflU 0, 

























6530 
7, -7 


PLOT 




B* 


9B,YY-1: DRflU 


HH 








llfl-T 


RN-? 


Wi 


1=1= 


WWIfeMi ■■ 

""■"then GO T 


















































9, 


'Y-3: DRhU Rfl 






































































: LET BBS- 














BBi,YY+9: DRflU 0,3 



DRRU -1.0: DRAU'2,0 

5554 let :■•:::■■;:-■■=>::■-■: +ees ; let yyy=yy 

9- LET HJ=STRS TT: GO SUE 3100+ 

0*UhL HKil 

5655 IF TT>9 THEN LET XXX=XX+BB 

Gij iUC SiOO + iO+'JAL M$(S) 
5559 GO TO 6525 
6565 IF /Y; 152 RND hfl.';-l THEN i 



16 AND Rfl< il THEN 
S OR XX>240 THEN i 



TO 99 

5570 IF 

TO -3 3 '30 

65 72 IF 

9990 

5575 CIRCLE XX . YY +7*P,P, , 7 

P550 PLOT XX, YY: DRflU.' , flfl 

5535 PLOT "■■ 



65'jo PLOT XX + IA'Yt-StflH 

fl- DRflU 6 . hh*6 

3525 PLOT XX-l/YY+Ssfifi 



Li-- 



500 PRINT S0 ; AT 1, 0; 

"" TRfiH.-? ■ iai38i =g. an3 -Ei 

5 IF INKEYt-; > ,rT TH- 



PLOT XX-3,YY+mh*8: DRhU Ah , Ah : 
GO TO 6617 
6615 IF INKEY»«"8" THEN PLOT XX- 
2,YY+AA*9: DRflU -3,3; DRflU 3,flfl» 
3: DRAW 0,-HA*3: GO TO 6617 

6516 GO TO 6610 

6517 LET 681=10: LET BB2=13: LET 
.... ; _ , ... .. . . . . .... .. .. . 

-18: LET BBS=-15: LET BB3=-11 
6913 PLOT XX+BB1,YY+AA*5: DRflU 
,3; DRRU -1,0; DRAU 2,0 

6619 LET XXX=XX+BB8: LET YYY=YY+ 
AA#5: LET M(*STRf TT : GO 5UB 310 
0+10*UHL M« £1) 

6620 IF TT>9 THEN LET XXX=XX+BB3 
: GO SUB ai00 + 10*URL fit (21 

662S INPUT ■■UERTCTYP): "j LINE T 
tiTTi 

6630 LET TTaTT+1; IF TT=41 THEN 
LET TT-1 
563:5 RETURN 
5550: 
SS52; 

6555 PRINT AT 21-INT (YY/S) , INT 
tXX.'S) J " " 
6560 RETURN 
6570: 
6672: 

6675 LET BJ="5PULE" 
66S0 LET HORIZ=6700 
6565 LET 'J£RTI=6745 
. . 30 TO RICHTUNG 
6700 IF XX>232 AND RAo-1 THEN G 
TO 9990 

6705 IF XX. 16 AND flflol THEN GG 
TO 9990 
5710 PLOT .... 
671S DRRU Afl*2,2: 
6720 PRflO flfl+2,2: 
6726 DflHU AA*2,£: 
6750 DRhU AA*2,0 

6731 LET 861=5; LET B02=7: LET B 
B3all; IF flflol THEN LET 661--11 
: LET BB2=-9: LET B83=-5 

6732 PLOT XX+BB1.YY+4: DRRU -2,0 



DRRU AH»2,0 
DRflU RA*2, 
DRAU HA*2, 
DRhU hA*2, 

















■ .E ■ 




+ BB2: LET 
















06 6 
























■ GO 


SUB B100+10*VhL MI 


a 
































: 






































































■- ■ ■■■ :■ 


■ :-.■■■ 


.. !-. H 


2: DRAU 


2 


flA*2 





. 75 DRRU 0,RfH2 

6776 LET 881=7: LET BB2=9: LET I 
6-3 = 13: IF XX>£40 THEN LET BB1 = - 
LET BB2=-S: LET BB3=-4 

6777 PLOT XX+B61 ,YY+Aflt9: DRRU ■ 
2,0: DRRU 13,5 

677S LET >..XX = X>.:tFJE-2 LET ri'Y=Y-,-' 
Hh*9: LET l«S = 5TR$ LL i30 SUB SH 
0+10-UhL M$ (li 
6779 IF LL;9 THEN LET XXX=XX+BB: 



dSSBfei 71 



Anwendungs-Listing 



r>: r ■-■■ - r . : :: -.■.■■;■ ■■■■. -■; ::;■ .--: 

?6<d T'JPUT "UEPT. ", LIME LJiLLi 
735 L FT LL=LL+1: IF LL = 41 THEN 



<?i23 LET HuRIZ=6355 

■:■:■ . ■ : " : " : ■■-;- ■ ■■:■-:-:: 

334G SO rO PICHTUNG 

F-55- IF ■-.'■;■■. i6 HfiO SR-ki-1 THEN 

TO 9990 

"^S 1 ? I~_XX£52 AND flflo-l THE 



TO 9990 

5853 IF YY-:5 THEN GO TO 3990 

6565 *LuT XX. YY: DRflU AR*5,0 

5870 PLOT ■ .-;+flfl*6,YY+3. DRflU 0. 



PLOT XX+Hfi*10,YY: DRflU flfl*6 

6390 PLOT XX+RR*2,YY+3: DRflU Rfl* 

2,0 

5395 PLOT XX+AR*ll,YY+3: DRflU flfl 

5900 PLOT XX*RR*IS,YY+*: DRflU 0.. 

6910 GO TO 6975 

8925 IF YYllSa AND RflO-1 THEN G 

TO 9990 

6930 IF YY<15 RND flRol THEN SO 

TO 9990 

6933 IF XX<5 THEN GO TO 9990 

6935 PLOT XX, YY; DRflU 0,flfl*5 

694-0 PLOT XX+3,YY+Afl*6: DRflU -6, 



5955 PLOT ! 



Y+flfl*10i ORRU 0,Afl 



6960 PLOT XX+3,YY+flfi*2; DRflU 0,fl 

fl*2 

6965 PLOT XX+3,YY+fia*ll: DRflU 0, 

+flfl*12: DRflU -2 
IF EE = 41 THEN 



6975 LET ESCEEi =B$ 
6930 LET E£=EE+lr 



7005: 

'-'■'..: ■:. = ■ : :.■ -i ."-:.- :..-.:-:. -_■■ 

?um LET HORIZ=7060 

"-:"■■::■ . _■■ 

7040 GO TO RICHTUNG 

■■'■300 IF ■.:<■. v -:■.;;. -■=■ T-F>. 

TO 9990 

7070 IF XX;1S AND Rho-1 THEN GO 

TO 9990 

7073 IF YY<4 THEN GO TO 9990 

7375 PLOT XX, YY : DRflU PR**,© 

7030 PLOT XX-rflfiiiO YY-2: DRRU -R 



7035 PLOT 

7090 PLOT XX+Rfl*12, 



+flfl*6,YY-2: DRflU flfl* 
DRflU Rfl*4 



"C9- Ci;-:C_E vy + .-f|_j! .■■■■-..■ 

7100 GO TO 7160 

7120 IF Y¥>152 AND flflo-l THEN G 

r T -. .pggg 

7130 IF YY;1S AND flfl t > 1 THEN GO 
TO 9990 

7103 IF XX-; 3 THEN GO TO 9990 

7135 PLOT XX. TY: DRRU 0,AR*4 

7140 PLOT XX-S,YY+RA*10: DRflU 4, 

7145 PLOT XX-2,YY+flfl*6: DRflU 4,fl 

71S0 PLOT XX,YY+flfl#12: DRRU 0,flfl 

7155 CIRCLE XX,YY+flR*8,4 

7-;.6c lst r; _■_: =&~ 

7165 LET EE=EE+1: IF EE = 41 THEN 



7170 RETURN 



<1 OR XX<1 THEN GO TO 



'55 i 

7255 L_. 

7250 LET I 

726? LET UERTI=7340 

727C CO TO PICHTUNG 

7235 IF XX {3 RND flfl O 1 THEN GO T 

?290~IF XX<2 THEN GO TO 9990 

729S IF YY:-1S0 THEN. GO TO 9930 
73O0 PLOT X-.-SH,S,',-Y- r :2: DRflU 0,3 
73135 ;F:h;J Ah +5.0: DRRU 0,-3 
IP:-:-: ■■-■-.-..: . I.'. :p. r ~ 

731.5 DRRU -Rfl*2,-2: DRflU 0,-3 
7320 DRRU -flfl*5,0: PLOT XX, YY 
7325 DRRU 0,2: PLOT XX/YY+5 
7330 DRRU 0,2 
7335 GO TO 7390 

734S IF YYiS AND flfl <> 1 THEN GO T 
O 9990 

73S0 IF YY<2 THEN GO TO 9990 
7352 IF XX>240 THEN GO TO 9990 
7355 PLOT ;xX4-2,YY-Afl*2: DRflU 3,0 
7360 DRflU 0.5,-RP ORRU -3,0 
7365 DRRU -£,flfl*2: DRflU 7,0 
7370 DRRU -2,-Hfi*2: DRflU -3,0 
7375 DRRU 0,-flH*5: PLOT XX , YY 

■' S ,.«: PLOT XX + 5.YY 
7365 DRflU 2,0 



15 L-:~ &2 = ,, t-:lh : .R0FfJN- 

25 LET UERTX=7430 

30 GO TO RICHTUNG 

40 15 XX, 15 HMD HH;-1 THEN Gi 

9990 
_-_' i-3"_:'' : '- il ' :1 flN D flflo-l THEN 



c;c-: 

IF Y 



?1&0 OR -■ 



(1 THEM GO T 
,YY+4,*; PLO 



TYi-53 PLOT ■»>','■ 

7470 DRflU flfl*7,3 

7475 RETURN 

7435 IF YY-;1£ RND flfl <.} 1 THEN GO 

TO 3990 

74S6 IF YY)160 AND flflii-1 THEN G 

TO 9990 

7490 IF XXil OR XX>240 THEN GO T 

9990 

7500 CIRCLE XX + 3 . YY + Rfl*ll , 4 : PLO 

T XX-i,YY+H.V=:rL5 

75-55 DRHU J.X: PLOT XXtljVY 

'51C DRRU 1 3' DRRU 0,flfl*7 

7515 PLOT XX+7,YY. DRflU -2,0 

7520 DRRU 0,Rfi*7 

'. -"■::■ -.-" y .■ .: r. ■ ::- 

7530 LET EE-EE41: IF EE=41 THEN 
LET EE=1 

7535 RETURN Basic-Listing «Platinen-CAD« 

?gg|: (Fortsetzimg) 

7S70 REM BILD LOEiCH . 
7675 PRINT U0;AT 0,0j" UOLLEN 51 
E UIRKLICH Dfl5 GRNZE BI 

LD L0E5C(' — ' 



IF INKEY*< 



THEN GO TO 76 
THEN GO SUB 9 



7652 IF .YY-.:- . 

990: 00 TO 9390 

7665 IF INKEYS^'J 1 ' OR INKEY« = " 

THEN CL5 : GO TO 9S93 
7S90 IF INKEV*="W" OR INKEY(=" 



72 a 



Anwendungs-Listing 



THEN GO SUB 9990: GO TO 9390 
7695 GO TO 7632 
7696: 
7697: 

77B0 REM L-ISTE LOESCH. 
7710 PRINT H0;RT 0,B;"UELCHE LIS 
T£ MOECHTEN SIE UOLL- STRENDIG L 
OESCHEN? >R ,T ,C,C,L,Ei " 
7715 IF INK.EYSO"" THEN SO TO 77 
IE 

7730 LET 2$ = INK,EY$ 
7722 IF Z$="" THEM GO TO 7720 
7725 IF LEN 2«(>1 THEN GO TO 772 





RR»1: DI 


N R«(41,S) : GO TO 7765 






M T$i41,Sl : 00 ■■ '-' 7765 






















M L4U1,S) : GO TO 77^5 
























GELOESCHT-Tfl-STE QRUECKEN" i RT 1,0 











7771: 
7772: 

778:::: REM EINZELTEIL L0E5CI . 

* "; NU: IF nu " ' 



7735 PRINT 80:RT 0, 



U>40 THEN GO 
BRUTEIL 



7305 IF Zi="R 
" : GO TO 78.--0 
7S10 IF Z*="T 
'■ : GO TO 7340 
7315 IP Z 

■ GO T,. --.;..■ 
7-320 IF Z* = "C 
": GO TO *Si! 
7325 IF Z$ = "L 
■ . 1-0 70 ". .-. 
7-?3t> IF Z« = "E 

:-o -o -.--.;. 

7335 GO TO 7735 
7340 PRINT 80;RT 0,0;ZS 
GEL0ESCHT-TR5TE DRUECI" 



THEN LET D* II 

THEN LET C*<l 

THEN LET [_$ tl 

THEN LET E»(l 




7359 IF INKEY«="0" THEN GO SUB ' 
990: GO TO 9390 
7368 IF INKEY$="5" 




■ .0; "DIE [ 
i E£GXr;:iT NUN : 
. J70 LET RSU1)=STR* RR : 5RUE ' 
IDeRS-R-;:,- PfiT3 R % '. J : LET TJI41 
= STR* TT: 5RUE "TRRN5. 



N5IST0R" DRTFt 



...-IWSftrO" ORTtt CJt: 
-T.73 .zr ---' 3:^: e '■■:■■ 

IODE- DhTh D*(J: LET Lt C4.1) =5TR$ 
LL: SHWE "SPULE" DRTfl L*1) : LET 
E$C4.1) =5Tfi* EE : 5RUE "DIUERaE" 

DRTR E«() 

7330 PRINT B0 i flT_0,0; "SPULEN SIE 

1 ~ ' ' ' : '" 

— "tritt goal 

1 RUF. SQ TIPPEN~IE 

"■"' ■ ■■:" ■?..: ■:■ 

7333 PRINT 80;hT , 0; "DRRfiUFHIM 
UIEDERHOLEN 5IEDIE5E ROUTINE NO 
CHEINMRL ! <[AI^: ": PRUSE 
73-35 GO 5U6 9390 

7993 PRINT RT 0,0: VERIFY " " DAT 

ft RSO: PRINT RT 0.0: UERIFY "" 

DRTfl_Tj<J: PRINT HT 0,0: UERIFY 

1 DAT 
UERIFY '■" 

: UERIFY 



AT i 



raao kmini «u,Hi 0,0; "RUFNHHME I 
8-7 K.ORREh T UE RLRUFEN. BITTE DREU 
CKEN 5IE IBS, 
'7997 PRUSE 0: GO TO 9390 
7393: 
7399: 

7903 REM HRRDCOPY 

7915 PRINT Bfl;flT 0,0;" UOLLEN 5 
£PY PES BILDES 



"" THEN GO TO ' 
S 11 THEN GO SUB 
5" THEN GO TO ' 



IE EINE H fl ££ffi P j 

7920'"lf"lNKEY*T 

20 

7925 IF INKEY*= 

930 . 00 TO 9390 

7930 IF II-iKEV ¥ = "'j 

4-0 

7935 GO TO 7925 

"040 COPY : POKE I 

23301,23 
7945 GO SUB 9990: 



7950 REM LISTENRUSDR. 
7955 PRINT 80 . RT O.tfr'UOLLEN SIE 
DIE BRUTEIL-. ISTE FiU3- DRUCKEN 

7 -- (Ha=@,aai — 

7960 IF INKEYJC-' 



793S IF INKEYJ-"; 
930: GO TO 9390 
7970 IF INKEY* = "! 



GO TO 79 
GO SUB 9 
GO TO 79 



7975 GO TO 7965 

7930 GO SUB 9390: LPRINT : 

T : LPRINT 

7981 LPRINT "UIDER5TRENDE" . 

6, ' K0ND£N5RT0REN" : LPRINT 



THEN LET U$ 
5 IN) : GO TO 7'3iSb 

7935 IF N:RR THSii GO SUB 7093: G 
O TO 7934 

7936 IF CtUX) oY*< TO 10) RND X< 
CC THEN LE T Ua = "C"+3rPs *V " +C 
S(X) : GO TO 7933 

7937 IF X«2C THEN GO SUES 7994: G 
TO 7936 

7933 LPRINT l.,i$,TR£. 1&;UB 
■■■i.: i ■ ■■:■■"": :":-:■!:■ 00 ?:J3 799.; 
"900 IF v;, : c ;:^:: GO 3UB 7994 
7991 IF N=fiR RND X^CO THEN GO TO 



_L"7 r-l-i 



RETU. 



S03O LPRINT : LPP.IN1 

3005 LPRINT "DIQOEN 1 
N5I3T0REM" : LPRINT 

3006 LET N=l: LET X: 

3007 LET W*="" : LET 
3003 1= DS'N) 



■ THEN LET 1 



5-="D" 



10) RHO 



■isJSESSlj 73 



Anwendungs-Listing 



*(NJ 


GO TO 


3010 






























































































L PPTN' 




















































































.■: ■■ 


LPRIH 











3327 LET Itts"" . LE" 
6023 IF Li <Ni ■ ;■¥* < 
LL THEN LET U*="L" 
t !N> i GO TO 5330 



8323 : 
TO 3023 
**"0 IF EJi! 
EE THEN LET U* 
■50ol IF XtEE Tl 
TO S038 

■""■■■ . ... 

_.- THEN GD ".._ 

3037 IF >. •: El THEM GO YJ6 7990. 
5035 IF t. = LL flNC v" = EE THEN C~ " 



' 10) AND N< 

GO TO 5035 

HEN 30 SUB 7994-- G 



3345 GO 3 
3046: 

3347: 

50y" "." ■: : : ":■.:■ ■ ■ :■ 



POKE 23301, 
TO 9390 



• • .- 



THEM GO TO 30 

THEN GO SUB 9 

THEN GO TO 53 

THEN GO TO SO 



BEREITEN S 




5RUE "BILD'COD 
GO TO ! 



GO SUB 9 



S065 IF INKEYta' 
990 Gij TO 5390 
■3365 IF INKEY*-' 



5363 00 TO 5065 
3370 PR INT "- 
IE DIE 

B075 

5 

80S0 GO 5U 

.: ■. : :::■ ... . _:;■ 

3*55 00 3-i.lB- 999C 
.[YSS5 REM LADEN 
3037 PR INT 03, ST 

ie rlif Eauaiaaaa 

3893 LORD ""CODE 

390 

3091 GO TO 5035 

3392: 

8093: 

8094: 

3100 REM ZfiHLEN 

sios -lot :■■:■:>■ ~i. . ■ 

PfllJ 3,5: DRRU -1 
DRflU 0,-2 



3115 RETURN 

512= PLOT XXX+S./VYY: DRflU -2,0: 

DRflU 3,1: DRRU 2,2. DRRU 0,1: DR 

flu -2,0 

3135 RETURN 

8132 PLOT XXX, YYY: DRRU 2,0: DRfl 

U 0,1: DRflU -1,1: DRRU 1,1: DRRU 

0,1: DRRU -2,0 
3135 RETURN 

814.2 PLOT XXX+2.VYY: DRflU 0,4: D 
RflU -2,-2: DRflU 0,-1: DRflU 2,0 
3143 RETURN 



3152 PLOT XXX, YYY: DRRU 2.0: DRfl 
U 0,2: DRflU 1,3- F'RRU 1 1. DRfl 
U 0,1: DRRU 2 .0 

5155 Tr-.p:v 

8162 Pi OT YXv +2jY vv + d r.Rflij ■ l , i* 
: DRRU 1,-1: DRRU 3 3- PRflL' ? ■ 
DRfiu . ? DRfiU 2 .0 



f : irnnu v , c; : i^:n^ ■« . <ti 
3165 PFTURN 

S172 PLOT XXX .YYY: DRflU i 
I 2,2: DRflU B, 1: DRftU 2 



DRfl 
W H,<4: UHHW t ' 
8175 RETURN 

3135 PS OT xw.yyy [,Rfiij J | : DRR 
U 0,1: DRRU 2.5. DRflU 0,1: DRflU 
2,0: DRflU 0, -1 DRflU -2- 2; DPP 
U 0,-1 
S1B5 RETURN 

5132 PI OT vvx, vyt. dRh'J 2.0: DRfl 
U 0,4: DRRU - = *- i*ew™i - - 
U 2 , 

5195 RETURN 
3136. 
3197: 

5203 REM LISTEN (ADEN 
6205 PRINT 80, AT 0,0."LEGEN SIF 
DIE CflS5ETTE~6lN I-IND 5CHRL TEN 5 

ie hi if mraaraaa a aa ■ 

8213 L OR? ^ ^TfiTfi PI'l: LOAD ' 

DHTfi OS'': LORD - DflTfl OS": 1.0 
HO '■" DRTR T)n LORD ,: - PPTP I % 
f.i : LORD "" DATA EiO 
5215 GO SUB 9953: GO- TO 9390 

6233 . 

8300 REM M, - COE»E 

3310 DATA 4S.C91 237 91 , 2,91 .- 23 

_ _ ? . _._ . ;?|i , .. ,._ , _, 

.203.25.58 .3.237,176,201,235,9,2 
35 .9,4 3,27 .237,134,201 

;,-. .■. -.,.-;■. .. ..::-.- Y - " Y=-Y;- --.v-. 

MRS . POKE m,Mh=. ■ NEXT N 

■=:■:■■ 33 R£7UPi; 

IY33S REM UM 

3356 POKE £3296.0. POKE 23297,64 

: POKE 23298.95. -YY = 23299,208: 

PRN'.^OYITJE JJ5R 65500. POKE 23296 
,30: POKE 23297,232: POKE 23298, 
0: POKE 23299.64: RRND0HI7E USR 
65500 

5.26G RETURN 

2366 POKE 23296,0: POKE 23297,64 
: POKE 23293,33' POKE 23299,232: 

PfiMiY: HI IE USR 65500 POiYV 
,93: POKE 23297,208. POKE 23298. 
0: POKE 23299,64: RANO0MT7E USR 
55530 

S3 "0 RETURN 

3405 IF EI = THEN GO SUB 9990: G 
Q SUB 8355: LET Eltrl: GO TO 841.5 
3410 IF EI=1 THEN GO SUE 9993: G 
SUB 8365: LET EI=0 
: ■ . .Y'. -■• 

5500: 
Y-C9- 



MIT CURSOR UAEHLEN . 

9320 PRINT tl0;AT 0,(31-LEN B(i /2 

. FLASH 1;6* 

LET Z$=INK£Y| 
9335 IF INKEYti'S" THEN GO SUB 9 
990: GO TO 9890 

98*0 IF Z*="5" THEN LET flfin-1: G 
SUB HORIZ: GO TO 9390 
9350 IF Zi*"8" THEN LET AA*1: GO 

SUB HORIZ: GO TO 9B90 
9360 IF Z*a"S" THEN LET flfl=-l: G 
SUB UERTI : GO TO 9390 
SS70 IF Z*="7" THEN LET flfl=l- GO 

SUB UERTI: GO TO 9890 
9383 GO TO 9830 
9893 PRINT B0, RT 0.0;Y« 
9900 PRINT O0,RT 1.0jV| 
qqT? RrruPN Basic-Listing «Platmen-CAD« 

||"- (SchluB) 

9990' REM PLOT-KORREKT. 

9991 PLOT OUER l.XX.YY 

9992 RETURN 

9999 5WE "PLRTI.-CflD" LINE 1080 
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lips&Tricks 



Internas aus 
dem Spectrum 

Zwei wertvolle Tips, die den nicht mar- 
kierbaren Interrupt und den freien 
Speicherplatz betreffen. 

In Happy-Computer. Ausgabe 11/1984. wurde gezeigt, wie 
man den maskierbaren Interrupt, also eineabschaltbare Unter- 
brechung, benutzt. Aber auch der nicht maskierbare Interrupt 
(NMI) kann genutzt werden. Der entsprechende AnsciiluR des 
Z80A-MikroproiO£sors. isi iwar jodiglich an den Userportge- 
fuhrt, aber das reicht aus. Wenn man ^RANDOMIZE USR 102« 
(102 dez. = 66hex.)eintippt, gibt es einen Systemkaltstart. 1st 
das nur eine Alternative zu ■RANDOMIZE USR 0* dem soffi- 
ziellen. Systemkallstart? Jetzt tippen wir >POKE 23728,1« und 
dann -RANDOMIZE USR 102*. Nun kommt die Meldung >o.k.< 
Schauen wir uns das Listing an. Es zeigt die Routine an der 
Adresse 66H. Wir sehen, dal5 der Wert von NMIVAR gepriift 
wird. 1st er Null gibt es einen Kaltstart. ist er < > Null, wird zu- 
nickgesprungen und mit dem normalen Programm weiterge- 
macht. (StundedaderSprungbefehUJRZ, + 1«, dann ware es 
fanlastiscb. Man <o:n--e (lurch den nichiniaskierbaren Inter- 
rupt an eine beliebige Stelle springen. »Wann immer sich der 
Spectrum aufhangi, konnte man sich retten. Wer also sein 
ROM in ein EPROM umschieBt: diese Stelle bitte andem. 

Wo die Systemvariable NMIVAR ist? Im Handbuch auf Seite 
176 steht fur Adresse 23728/9: nicht benutzt. Bitte durch- 
streichen und NMIVAR hinschreiben. Wenn wir jetzt am User- 

:■ :j ■/ -Cc 

clalr Sonderheft, Seite 27] mit einem Schaiter verbinden, ha- 
ben wir einen Refill Schaller. rinn wir software maBig (»POKE 
23728>oder>POKE23728,0*)beeinflu5senkonnen.Beim 
Interface 1 gibt es keine NMI-Routine. Tritt ein NMI auf, wah- 
rend das neue ROM eingeschaltet ist, wird er ignoriert. 

Beim Disassemble re n des Spectrum -ROMs fallt noch et- 
was auf: Obwohl das Spectrum -Basic den Befehl FREE nicht 
kennt, gibt es die entsprechende Maschinen- Coda -Routine. 



So benutzt man sie: *PRINT 65536-USR 7962=. Diese Me- 
tbode ist besser als alle anderen. Sie liefert immer den klein- 
sten Wert. Der Wert ist: SP-(STKEND+80] (siehe Speicher- 
karte, Spectrumhandbuch, Seite 165). Diese FREE-Routine 
benutzt den gieichen Test, den der Spectrum macbt, urn fest- 
zusrellen, ob noch Speicherplatz vorhanden ist, wenn er wel- 
chen benrjtigt. Die »80n, das sind 80 Byte seiseme Reserves, 
die der Spectrum beim Testen auf freien Speicherplatz immer 
zurOckhalL Noch eine Bemerkung fur Profis: Die Variable SP 
ist der Stackpointer, ein internes Z80 A- Register, das von Ba- 
sic aus sonst nicht zugiinglich ist. Das Ergebnis des Aufrufs 
von USR 7962 liefert den freien Platz als negative Zahl in 
Zweier-Komplement-Darstellung. s65536-USR 7962« formt 
diese ^negatives Zahl in eine positive um. Falls die Routine den 
Wert — 1 liefern wiirde, gibt es die Meldung .OUT OF MEMO- 
RY*. (R. W. Gerling] 




3fi)66 F5 


PU5H «F 


S067 E5 


PU5H HL 


0£68 2flB05C 


LD HL, CNMIUflR] 


S06B 7C 


LD fl.H 






0060 S001 


JR NZ,*iBlGNQRE 


006F E9 


JP (HL) 




IGNORE : 


13073 El 


POP HL 


0071 Fl 




007£ ED4S 


RETN 



NMI ECU 0066 I 102) 
IGNORE EQU 0070 C US) 
NMlyfiR EOU SCBO C23728) 



Paint Magic ft ^ Comm oitore 64 

m nagische ZelGhanprognmun aus den *V^_ 

. elf qespeicn^IP ' rra * , ^ BM8 c»*mw 
• gleichzeitiges Malen aur - M n chQ 

■ einfache Bedienung durcn uu 



MritSftdinik 





-Jr Doutsches 

AuswahlmenU auf 
Diskette 
-^ Deutsches 

Anleitungshett . 

*zsstssssr 

Wettbewerb. 

Ober 100 P' e,se - 
1.P«is:DM2000,- 

In bar. 
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Tips &Tricks 

Border-Effekte 

Mit Hilfe des Programms »Border- 
Effekt« kann man Border-Effekte aus- 
wahlen, auflisten und somit in eigenen 
Programmen verwenden. 

Das Programm arbeitet mii dem OUT-Befehl. mit dem man 
unzahlige Border- Effekte entwickeln kann. Dieses meniige- 
steuerte Programm bietet also nur eine Auswahl der Effekte. 
Die einzelnen Effokio sine im Menu angegeben und eine Be- 
schreibung ist im Programm inlegriert, so dafl hier nur noch die 
wichtigsten Punkle sufgefuhrt werden: 

Beim Listen eines Border- Effekts muB nach Erscheinen von 
SCROLL? mi- und dann GOTO 9050 eingegeben werden. Urn 
Bordorhlifk;e nit Ton z-.j ernniicn. rruil; ::■■-. t=i Lingabc dor 
PAPER-Farbe der jeweilrge Wert urn 16 erho fit werden. 

Die aufgelisteten Border-Effekte konnen durcti einen ange- 
schiossenen Drucker ausgegeben werden. Mit GOTO 9900 
kann das Programm »Border-Effektes auf Band gesichert wer- 
den. (B. Baran) 
Varlablenliste 



—1 

Paper-FarbeO-T, 16-32 mit Ton 

Schleifenvariable filr Border- Effekt 

Zcilc, ab der geloscht wird; bei Listen 

Zeile, zu der zuruckgesprungen wird 

Zeile, ab der gelistetwird 

zu welchem Border-Effekt es geht 

Zahlvariable beim Eingeben der 4 Inkf. 

Ink-Farbe beim Eingeben 

>n.isa! :dicl' a Sdi'isifen variable 

Tastatureingabe 



Aufschliisselung der Zeilennummern 


30— 55 


Erklarung ja oder nein? 


58— 95 


Erklarung 


100— 130 


Menu 


210— 224 


Dauer des Effekts wird eingegeben 


225- 260 


Ink-Farben werden eingegeben 


270— 290 


Paper-Farbe wird eingegeben 


310— 340 


Ink-Farbe wird eingegeben 


1000—1560 


Border-Effekte siehe Listing 


9000 — 9050 


Border-Effekt wird gelistet 


9100 — 9150 


Ausgabe auf Drucker 


9900-9930 


SAVEn fur Border-Effekte 


10 REf 


^^^^^^^ 


■ (sJ Bernhard Baran 




1 Postfacn 3S 




1 6710 Frannentha I I 


20 BOS 




OER 5: PAPER 5: InK &: C 


LS 




25 PHI 


NT FLR5H 1, " BOR 


DER-EFFE 


KTE 


30 PR I 


NT RT 11,0; "ErK laerung n 


ottig 




ngaban)'? 




40 IF 


INKEY|="j M THEN GO TO 60 


50 IF 

a 

55 SO 


INKEYJa'n" THEN CO TO 10 


TO 48 


59 REf 


■ Erliatrurn ■ 



60 CLo : PRINT FLRSH 1; " 

Eruwruna 

70 PRINT RT £,0; "60 rijer -E F f « K 



in eigene 
■tztn." 

75 PRINT 



s«h«n 
■Somit 

CFFen 
Progr 

im Listen 



90 PRINT "6a i 



au F der Tasta 
ige Einaibe. 



95 PRUSE 0: PRUSE I 

9S REM ■ menus I 

138 CL5 : PRINT FLft: 

MENUE 
105 PRINT AT a, a; " 
r-EF teKte : ■' 
H0 print at *, a; "1 



130 PRINT FIT 14., 

130 IF INKEY*»"1" 
00- GO TO £00 

140 IF INKEY«-"2 M 
30: GO TO 300 

1S0 IF INKEY$="3" 
30: GO TO 200 

160 IF INKEYS="4" 

TO 1400 

170 IF INKEY*="S" 

a 

130 GO TO 130 



"Men 



»pyn 



THEN LET U«10 

THEN LET U=I2 

THEN LET U=13 

THEN CLS : GO 

THEN GO TO 40 



aaa go sub aei 
sue. go to aas 

£05 CLS ; PRINT 



ft* werden 
ngegeben ■ 
as 



■uarts singeban 



328 PRINT RT 2,0; "Dai 

224 RETURN 

225 LET 3=1 

230 PRINT RT 20,0,q, 
" 10-7, -1 " ' 



240 INPUT 
250 IF ' 



<-l OP 



>7 THEN GO TO 2 



251 IF 
PT 4,0; 

25S IF 
HT 6,0; 

253 IF 
hT 3,0, 

254 IF 
RT 10,0 

255 IF 



=i THEN LET a=i 
. IrtK-FarbS; ";. 
=2 THEN LET b-i 

. in t -Far be : "; i 
=3 THEN LET c=i 
. InK-Farbe : "; 

=4 THEN LET d = ! 

- ■ -Far' - 



PRINT 
PRINT 
PRINT 
PRINT 



"HEN PRINT RT 20, 8; " 
" : GO TO 270 
£57 PRINT RT 20, a; " 

260 LET 3»q+l: GO TO 230 

270 INPUT "Paper-Farbe ta-7 ohn 

a Ton , 15-S3 ;:,; i Ton) ", e 

230 IF e<0 OR e=S OR C=9 OR e = i 
OR tall OR a=12 OR 8=13 OR 6=1 
4 OR e=15 OP e>23 THEN GO TO 270 

Basic-Listing "Borders 
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390 


PRINT fiT 12,0; "Paper-Ftrb*: 

PRU5E 0; GO TO u 


1440 NEXT 9 : NEXT X 




1450 LET p=1410: LET 1*4: LET rs 
1460: SO TO 9000 


308 


SO SU6 205 


310 


input "inx-Farw i8-7>";a 
IF i-2 OR 8J7 THEN GO TO 31 


1460 GO TO 9100 

1500 REM ■ BlitZ-EffBU ■ 


328 







1510 FOR X=0 TO S 


330 


PRINT AT 4,0; ,, im-f'arbt ! "i 


1520 FDR gi0 TO 7 






1530 OUT £54,9: OUT 254 , g +0 


340 


GO TO 270 


1540 NEXT 1! NEXT X 


400 


GO SUB £05 


1550 LET p=1510: LET I =4 : LET T= 
1360: GO TO 9000 




pause 0; go to 1300 


1000 


REM ■ BlinKende lau fends 


1560 PRINT RT 6,0J"S»"JS: Su TO 




Strei fen I 


9100 




FOP >:=0 TO 6 


9000 REM ■ Bord*r-Ef rent-Listing 


1020 


IF a>=0 THEN OUT 254,* 


erscheint auf den 


1030 


IF b>=0 THEN OUT 254 , b 


Bi Ldschirm I 


10*8 


:■:= :■ .---a -.>,£;■■; cu": £';->, c 


9010 PRINT RT lB,0;"Soll das Lis 


1050 


IF d>=0 THEN OUT 254, d 


ting zu diesen Border -Ef ieK 


1050 


OUT 254, e 


;■■.;,: B:. :.i :■■ -: ■::■..'; ' r. .. - 


1070 


NEXT X 


J Oder n eingebeni? Nachdem scro 


1080 


LET p=1010: LET t »7 : LET r» 
GO TO 9000 


U? erscheint, n ting* ben u 


1090 


nd GO TO 9050 entern . " 


1090 


print at 10,0; ■'**";» 

PRINT "a=";a: PRINT ,, b = ' , ,b: 


9020 INPUT as 


1100 


9030 IF «»a"n" OR aS="N" THEN SO 


PRINT "C*";c: PRINT "di'^d 


TO 100 


1110 


PRINT 'n";« 


9040 IF a*="j" OR »b="J" THEN CL 


1170 


GO TO 9100 


3 : LIST p 


1200 


REM ■ Einfarbiger schneU 


9045 GO TO 9020 




biinnender Laufender 


9050 FOR T«L TO 21: PRINT RT r,0 




strei Fen ■ 




IS 10 


FOR Xi0 TO s 


' '■ : NEXT f ; GO TO r 


1220 


OUT 284, a : OUT 254,6 


9100 REM ■ Bordsf-Ef fain-Listing 


1230 


NEXT X 




1240 


LET p*1210; LET 1=3: LET f- 
GO TO 9000 


ausgegeben ■ 

9110 PRINT RT 20,0; "COPY tj Oder 


1250 


1250 


PRINT RT 3,0, '■&■";*: PRINT 






a: PRINT h 1< "it, 


9120 INPUT a| 


1260 


GO TO 9100 

REM ■ Standhafte Strei fen 


9130 IF ■ »■",]" OR a(»"J" THEN PR 


1300 


INT RT 20,0;" 

: COPY : GO TO 100 




Hintergrund 1 




9140 IF a««"n" OR a«="N" THEN GO 


1310 


FOR X*0 TO i 


TO 100 


1320 


PRU5E 1 


9150 GO TO 9120 

9900 REM ■ SRUEn des Programme 
Border -Ei f ante ■ 


1330 


OUT 254, a; OUT 254, b OUT 2 


54, C 


OUT 254, d: OUT 254,6: OUT 


254.X 


9910 CLS : SRUE "EffeKta" LINE 1 


1340 


NEXT X 


9920 PRINT "Band ZU rue C KsPU Len f 


1350 


LET p-1310; LET t =6 : LET r = 
GO TO 9000 


yef •Uerify" 


1360 


9930 UERIFY "EffeKte" 


1370 


GO TO 1090 




1400 


REM ■ Dsno ■ 
FOR x.208 TO 230 




1410 




1420 


FOR 9*190 TO 240 
OUT 254, X : OUT 254,3 




1430 


Basic-Listing ■> Border.' 
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Tips&Tritks 

CLEAR-LIST: 
Mehr Uber- 
sicht fiir Ihr 
Listing 

Bei 32 Zeichen pro Zeile f iihrt schon ei- 
ne IF/THEN-Anweisung zu einem Zei- 
leniiberlauf. Fangt man erst an, meh- 
rere Befehle in eine Zeile zu packen, 
muft man bei GO TO- und GOSUB-Be- 
fehlen oft lange suchen, bis man die 
Zeilennummer gefunden hat. 

Abhilfeschafft das Programm "Clear-List", in dem es eine lin- 
ks Spalte (5 Zeichen) liir die Zeilennummern bildet und in die 
rechte Spalte den Ztdm-i-exl hineinsr.riroib:. Die Zeilennum- 
mern sind dadurch klarin einer Spalte untereinander zu erken- 
nen. Ein Beispiel dafur ist das Programmiisting Clear-List +. 
Das Maschinenprogramm ist 149 Zeichen lang und so schnell 
wiedas»Original-l ;ST«. Fsk-iiiTi;-iul Druckeroder Screen aus- 
geben. eter Ausciebebereicbkann durch das Begleitprogramm 
fesijelegt werden. 

Verbluffend einfache Eingabe 
durch Basic-Lader 



F026— F02E 
F030— F038 
F03A— F050 
F052 
F054— 5a 



F06C-F06F 
F071— F07d 



aClear-List* ein. Nun musse 
Code unterbringen. (Zum f 
16 KByte]. Schutzen Sie i 
adresse — 1 (zum Beispiel 
starten. Geben Sie auf ~ 



efolgt ein: Tippen Sie das Listing 
Sie slcb [iberiegen. wo Sie den 
ispiel 30000 fiir den Spectrum 
jsen Bereich mit CLEAR Start- 
3999). Nun konnen Sie mit RUN 
die Startadresse an. SAVEN Sie 
dasProgramm wie den CODE (mitder Lange 149] ab.MitNEW 
loschen Sie das Programm. Geben Sie nun das Begleitpro- 
gramm ein. Nacb RUN fragt Sie das Programm nach Ausgabe- 
gerat und Bereich. Mit 2,1,10000 wird zum Beispiel da 
gleitprogramrn gelistet. Treten Fehler a uf, muG das Eingabepio- 
gramm uberpruit werdenl Nachdem Sie nun das Maschinen- 
code programm Ihreh Wiinsclien entsprechend angepafit ha- 
ben, konnen Sie mil U ind "" ein Programmnach dem anderen 
einladen und mit RANDOMIZE USR Startadresse nach Her- 
rerisiusi listen lassen. 

(Hans Georg v. Zeschwitz) 



FO00— F004 Kanal (Screen (2)/Phnier (3) Sffnen) 

F005— FOOA 1. Zeilennr. suchen 

FOOB— F010 letzte Zeilennr ? jja: H.'.icksprung in 

F012 Zeilennr. ausdrucken 

F015— F019 Tabulator in c auf 5 setzen, ein Leerzei- 

chen drucken. 
F01A— F01D HI auf 1 Zeichen setzen, in a laden 

F01E— F024 Enter ? (Neue Zeile, hi erhohen und 

Sprung wenn ja) 



Versteckte Zahl? (HI +6 und Sprung, 
wennja) 

Token ? (Ausdrucken mit Routine und 
nachstes Zeichen, bei nein) 
Wenn a ein Leerzeichen vorher benotigt 
(z.B OR] dieses ausdrucken. 
a mit der Nr. des Token beschreiben 
(RND erstes] 

HI und be retten, nach be und hi die 
Startadresse im ROM laden, wo die Zei- 
chen der Tokens stehen (durch 7. Bit 
wird dabei das Ende signal isiert). 
Soviele Tokenenden zahlen, wie in a ste- 
hen. be enthalt die Anfangsadresse des 
aktuellen Token. 

Nach HI Tokenantang, be Original 
ein Zeichen laden. Bit 7 loschen und 
ausdrucken. 

so lange weitermachen, bis man 
ans Ende (Bit 7) kommt. 
Register (auRer de] original, wenn Leer- 
zeichen hinter Token erforderiich, aus- 
drucken, dann nachstes Zeichen laden 
Diese Ausdrucksroutine ist der Kern des 
Programms, sie ist lediglich dazu da, falls 
das Ende einer Zeile erreichf ist, 5 Leer- 
zeichen auszudrucken und c neu zu set- 



Der Autbau des Programmes 



-.0 


REM C 


aar-List 


ae 


DEF fc 


d C*t) "CODE -J1-4B-E7 


3N& -till > 


9") 


30 


DP. PR 


3E03CD0116210100CD6E1 


fl01iaa7CDS0ieD0CD291R3333a3?EC i ' 


CO 


DfiTfi 


:^fc;.<.:;:^;c[..;;v^:;".,. : e" 


=£R5 


■ ■l■'^-'PlaEBD6l=l5118500F5■ , 


50 


DRTR 


CO*.10C3ESaO4PPPPlflE67 


-Q:JPKPPifil3B730F5FlFE833EaB&*PP" 


60 


DRTR 


PPLSCSFSfr5fi5CI>ii)3eB7C>E 


= lF2i3Q53Ei!5CDe3eflE ID IF 14.7077809" 


■=■0 


CLERR 


USR "FT-llB: LET Z -US 


K "• 


-106: 


LET C-I+00 


S0 


LET «■-"" ■ 


RD b 


i LET 


tl^l + bt NEXT n 

0: FOR rt«Z TO Z + 103 


90 


LET & 


100 



110 


IF at 


1) <>■•»" THEN GO TO 13 


LET al-ll (B TQ 1 : POKE n , C - 


INT 


C/BSfl 


ftflee 


120 


LET n 


n + l: POKE it, INT (c/25 


8! : NEXT n 




138 


LET m 


FN d (**> *16->rN d USC2 


i ] : LET S t 


at (3 TO ) 


140 


PQ*E r 


,«l: LET ins+ld: NEXT n 


150 


STjP 


^0500 THEN PRINT "Err 


isa 


P-: IN- 


"RLies o(.'" , 'fiuFruF mi 


C RficDOMIZE USR ";i 


170 


PRINT 


■■POKE ■' : I+l; " ,S drucn 






160 


PRINT 


"POKE "; i+l; " ,3 druck 




-,-■ - i n 




190 


PRINT 


"SRUEN nil SRUE ""C 


'_""CCDE "i J; " , 105" 


3@0 


ppi?-r 


■'Zum apaettftn Laden; 


,, . .. CLefiR » 


2-l"*LORD ""CL""CODe 


aia 


COPY 


PROSE 0: CLS 
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■000 


Id 8,83 


3E 


03 




F002 


call 1601 


CD 


01 




F005 


Id hi, 0031 


21 


01 


00 


F008 


call 196E 


CD 


BE 


19 


F00B 


Id bC.2710 


01 


10 


27 


F00E 


call 1980 


CD 


S3 


19 


F011 




Dfl 






E 8 ;- 2 


call 1R-2S 


CD 


26 


IB 




inc hi 


23 






F016 


inc hi 


S3 






F017 


inc hi 


S3 






F0I6 


Id i j (hi) 


?E 






F01C 


caU 18B6 


CD 


B6 


IS 


F01C 




as 






foio 


c° « 


PE 


00 




FB1F 


jr m, >F024 


23 


03 




F021 


f\*t 16 


U 






F022 


jr sF00B 


|7 




Fea* 


co Efl 


FE 


3~ 




Foae 


jr z,>F02C 
CO Fl 


28 




F02S 


PC 


Fl 




F02B 


Jr nr,>F0a£ 

Id a, 20 
CO R5 


20 


1 ■ 




r=02c 


32 


■ 9 




F0BE 


FE 


AS 




F03P 


jr nc , >F037 


30 


-,:= 




F032 


caU P0SB 


CD 


5R 


F0 


F035 


jr >F018 


18 


21 




F037 


Sub AS 


D6 


rs 




F03O 


Ld d«,0095 


11 


96 


00 


FB3C 




PS 






F03O 


call 0C41 


CD 


41 


0C 


F040 


Id a, 20 


3E 


20 




= 042 


call ncFflSR 


04 


SB 


F0 


= 045 


^d a 7F de ' 


IB 






F046 


E6 


7P 




F0iS 


call FBSfi 


CD 


SB 


F0 


F04B 


Id a , (da) 


IB 






F04C 


inc de 


13 






F04D 


add a, a 


87 






FBcE 


jr nc, >F045 


38 


PS 




F050 


POP »f 


Fl 






F0S1 


CO 03 


PE 


03 




F0S3 


Id a, 20 


3E 


ee 




F055 


call p.cfbbr 


DA 


SB 


F0 


F056 


jr >F01S 


18 


3£ 




=05R 




PS 






= 05B 




DS 






F05C 


push hi 


E5 






F05O 
F060 


Call 0B03 


sg 


03 


08 


F061 


and ir 


1 


IP 




F063 


jr ni,»F06fl 


OS 




F86S 


id a, 05 


2E 


Sb 




F067 


cau 0BC3 


CD 


C3 


«R 


F06B 


POP hi 


El 






FCBB 


pop de 


01 






F06C 


pop a f 


Fl 






F05D 


rVie 


47 






F05E 


D7 






P06F 


Id a, b 


78 






F070 


r*t 


CB 
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£022 


jr >E00B 

CO RS 


H 


E7 




E0S4 


R3 




5086 


jr nc, >E02D 


30 


96 




"026 


call E0S0 


CO 


50 


C0 


E02B 


jr >Eai3 


18 


EB 




E02D 


sub B5 


06 






E0SF 


Ld d*.,009B 


11 


95 


00 


E032 


push af 


F5 






E033 


c«U 3C41 


CD 


41 


0C 


EC 35 


id a, 20 


3E 


20 




E038 


call r:c,E050 


°i 


50 


eo 


z.e--:B 


anu^F" 








E0 3C 


£6 


7F 




E03E 


call E050 


CD 


50 


E0 


E041 


id a, (d«> 


IB 






= 043 




13 






E043 


add a, a 


87 






E044 


jr- nc , >EB3B 


30 


F5 




E046 


pop af 


Fl 






£04-7 


C!> 03 


FE 


03 




E049 


Id a, 20 


3E 


£0 




EO-.B 


call nc .£Qz-Q 


04 


50 


E« 


E0<-£ 


jf >E018 


ia 


CB 




=ese 


Push if 


F5 






E051 


push d* 


OS 






E052 




E5 






E0S3 


Call 0BB3 


CD 


03 


00 


E055 
SBS7 




70 






and IF 


ES 


IF 




H0S9 


Jr ni,>E060 
id a,0S 


: 


35 




E056 


05 




E0SO 


call 0RC3 


CD 


C3 




£060 


POP hi 


El 






E061 


pop da 


Dl 






E062 


pop af 


Fl 






E063 


Id b,a 


47 






E0S4 


rst 16 


D7 






E0S5 




78 






= 006 


rat 


C9 
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= 030 


M 




3E 










I 1601 


CO 


01 


16 


















































£0 




























E0 














E0 


6 






as 




















E0 


« 


Id 




7E 


































=0 


f> 






FE 


















E021 


" 


16 


07 







10 Cliar-Ltst + 

30 DEF FN dla<)-C0OE a*-48-(7 

BNO ** (1J >"9"] 
30 DBTB ,, 3E'33CD0116210100CD6E1 

9011027CD801920CD£S1F.:. : 

7ECD8618■' 
i0 OBTR ,, 23FE0D2003D716E7FEEfla 

e0*FEF180023Ea0FERS3005CDPP 

PP16E1D6 1 ' 
SB DPTR ,, RS11960OF5Cl."t I )i 

4PPPP1RE67FCDPPPP1H13S730F5 

FlFE333cS : ' 
50 DPTR ,, 0DtPPPP18BEF5D5ESCD03 

0B7DE61i v ::;:-^^^7.^'".::C3i3RglDlF 

147D773CS" 
70 CLEAR USR "B'-ISO; I=USR "* 

"-118; C=Z+90 
80 at*"": FOB n*l TO A: REBD b 

s aa-aa+bi: next n 

60 »«0: FOR n=Z TO Z+llfi 
100 IF a8(l) <> "P" THEN GO TO 

130 
110 a»=aSi5 TO I; POKE n,C-INT 

liya56i *£56 
1S0 n=n+l: POKE n.INT (C/3S5)- 

next n 
130 m«FN d ia*J *16 + FN d IIKSl) : 

as=as (3 To ) 
140 POKE n,l»: * »» +11 : NEXT n 
150 IF SO 11635 THEN PBINT "E 

rror-: STOP 
160 PRINT "Bliss on Bufruf mi 

t RANDOMIZE USR ";j 
170 PBINT "POKE ",z+l;",8 dfUCK 

t sUf scrttn" 
160 PRINT "POKE ";i+l;",3 drucK 

t auf Printer" 
190 PBINT "SBYEN mit , ""3RUE ""C 

L""CODE "iZJ ",11B" 
200 PRINT "Zum spaeiareri Laden: 

CLEAR ";z-l"'LOftD "■'CL"" 

CODE " 
210 COPY : PP.U5E 9: CLS 



Eingabe-Programm fiir »Clear-List -t 



brtdecken Sie j etzt mit 

»Happy-Computer« 

die ganze Welt der Heiimomputer! 



Denn »Kappy-Compufer« 
ist einfadi super: 

»Happy-Computer« bringt jeden 
Monat neue, tolle Tips und 
interessante Informationen uber 
alle wichtigen Homecomputer- 
Systeme. In »Happy-Computer« 
finden Sie Monat fur Monat 
Listings der schonsten Home- 
computer-Programme, die unsere 
Redakteure fur Sie gepriift haben, 
die neuesten Hard- und Software- 
Tests sowie pfiffige Programmier- 
und Anwendungsbeispiela All 
das und vieles mehr macht 
»Happy-Computer« zu einer 
wichtigen und interessanten 
Fachzeitschrift fur alle, die Spafi an 
Homecomputem haben. 

Nutzen Sie deshalb 




jetzt die \forteile duith 

ein Abonnenment von »Happy-Computer« 

Funf gute Griinde sprechen dafiir: r 

~- Gutschein 



beieils friiher als sons! in Ihren Computer 
eiugeben, Itestberictite lesen und schneller aul 
e Angebote reagieren. 



3 Sie lind liidtenlos inf ormiert: Als Abonnent 
»k6nnen Sie sichersein, daB Sie Monat fux 
Monat, Ausgabe fur Ausgabe, nHappy-Computern 
piinktlich erhalten - auch wenn Sie lm Urlaub sind 
□dei das Heft beim Handler vergriffen ist. Es 
gehen Ihnen also keine Informationen verloren. 



4.K 



Nur als Abonnent er ho lien Sie 13 Hefte turn 

von 1 1 : Sie bezahlen (im Inland) nur 
: ein Jahr start DM 72,- im Einzelverkauf. 
st 10% Pieisvoneil! 



FUR EM KOSTENLOSES PROBEEXEMPLAR VON HAPPY COMPUTER 






Tips&Tritks 



Bit-Kopierer 

Wer schon einmal versucht hat, sich 
eine Sicherheitskopie von einem ge- 
kauften Programm zuzulegen, urn das 
Original vor einer Zerstorung durch ei- 
nen defekten Kassettenrecorder zu 
schiitzen, wird feststellen, dafl sich 
die Programmautoren eine Menge Ge- 
danken gemacht haben, urn ihre Pro- 
gramme vor Raubkopierern zu schiit- 
zen. 

Wer abet trotzdem nicht auf eine Sicherheitskopie verzich- 
ien will, kann sich freuen. Daseinzigewasmanbraucht, ist ein 
zweiter Kassettenrecorder und dieses Programm. Wer diese 
Zeilen liest wird wahrscheinlich denken, daB, wenn man einen 
zweiten Kassettenrecorder benutzt, gleich die beiden Recor- 
der miteinander verbinden und dann direkt iiberspielen kann. 
Diesmagineinkjon Fallen stirr.men. doch of. isles so, daB der 
dadurch entstehende Qualitatsverlust die Ladefahigkeit des 
Spectrum ubersteigt. Wenn man ein Programm ladt und da- 
nach wieder abspeichert, erhalt man eine Kopie von hoher 
Qualitat. Mein Gedanke war, das Laden und Speichem gleich- 
zeitig machen zu lassen und damit eine Kopie von gleich hoher 
Qualitat zu erhaiten. Der Spectrum ware damit ein Aufbereiter 
Oder Verstarke.' ties Sinnrnos. D-imitdas Einlesen und Ausge- 
ben mit extrem hoher Geschwindigkeit ging, schrieb ich eine 
nur34 Byte kurze Assembler louline. ichieohnctemiraus, daB 
das Einlesen und Ausgeben des Signals schnellergehen mulJ- 
te, als die SAVE- Oder LOAD-Boutine des Spectrums. Ein wei- 
terer Vorteil ist, daB mit dem Programm kein Byte an Speicher 
verloren geht, was auch das Kopieren von Programmen mog- 
lich macht, die den Spectrum voll ausnutzen. Der Abspielre- 



corder wird an den EAR-Eingang angesch lessen und der Auf- 
nahmerecorder an den MIC-Ausgang. Die beiden Recorder 
werden nun genau so eing.es.iol'". wie ^-- b«i:r normalen SAVE- 
oder LOAD-Vorgang getan wird. Wird nun das Programm ge- 
Startet, braucht nur noch das getan zu werden, was auf dem 
Bildschirm gezeigt wird. Da die Assemblerroutine nicht fest- 
stellen kann, wann ein Oberspielvorgang beendet ist, muB als 
AbschluB »SPACE« gedruckt werden. 

Zum Ablaut 

1st das Programm abgetippt, so kann es mit »RUN 10i> gesi- 
chert werden. Nach dem foigenden VERIFY wird sich zeigen, 
ob das Programm richtig eingegeben wurde. Erscheint »Fehler 
in der Data-Lisle* su bedarf d or, ciner Kontrolle der Prutsum- 
me in Zeile 270 (IF so 5239...} und der DATA-Lisie in Zeile 
300. Findet man den Fehler nicht, so lafit sich oft durch die fal- 
sche Priifsumme, die in Speicher s steht, ein RiickschluB zie- 

Am SchluB muB noch bemerkt werden, daB mit dem Pro- 
gramm ausschlioRiioh Siobeneiiskopien for den Privatge- 
brauch gemacht werden dilrfen. (Uwe Roth| 



Prog ra m ma utba u: 






003- 


-070 


Hauptprogramm. Erzeugen des Bildschirms 






und Aufru 


go; M;-."icniT 


i routine 


100- 


-120 


Abspeiche 


rn des Progra 


■rims mit Verify. 


200- 


-290 


Erzeugen 


der Maschinenroutine 


300- 


-310 


Maschinenroutine als DATA-Liste. 



Variable nliste: 






s : Priifsumme 






i : Laufervariable beinhaltet c 


re Adresse des 


!.■■ :•■■■ :.i : -: . ■■[:.!■:■:"•: ;■: il-.-T: ---'' . '," ■ ■ - 


br- 


zeugung des Maschinenprogramms. 




x : Maschinenbefehl als Zah 


bio wire a us 




DATA-Feld geiesen und a 


die Adresse 


ge- 


poket. 







S 6ii-Copierer Fuer den S 

V ZX SpeCtfUIB 16/4SK \ 



J Tel . : 06S1/17774 S 

999 



.„., urne Roth 

Roth MCMLXXXIU";hT 9,0 

tenrekorder 1: Ru f nahrne." " 
tenrctorder 2:Band start 
3C PRINT ' ' "Space beend 



"Bi I -Cop 



GO TO 20 



IBS S SUE 

RINT ■■ l .'EK-=. 

110 GO TO 5 



220 FOR i ; 

330 READ ; 

2*0 LET »s 

.550 PJi-.E ■ 



!W 



m 



=60 NEXT 



;-5£:39 THEN PRINT RT 10 















590 REM 
























































1='0 


£0-1, 














31^RET-^^ 













Basic-Listing »Bit-Kopierer« 



Tips &Tricks 



Aufbau der Maschinenroutine: 




selbe Ausgabe mit Bit 3 = 1. 


000 


Festsetzung des ersten Befehls auf die 


100 


: Sprung zu »CONT« 






110 — 120 : Ausgabe an Port 254 mit fiir Bit 3 und 4 


010 


Sperren des Interrupts. 




und mit 2 (entsprtcht Rot) liir Bit 0-2. Durch 


020 


Laden der Portadresse 32766 (Tastenreihe 








von SPACE bis B] in BC 




gang und Rot fiir 1 am EAR-Eingang entste- 


030 


Einlesen des Ports 254 (Bit 6 ist EAR- 




hen dieselben charakteristischen Streifen 








wie beim Laden eines normalen Programms. 


040 — 050 


Testen des 6. Bits auf oder 1 




Treten sie nicht auf, so ist das Eingangs- 




Wenn 0: Sprung zu sNULL* 




signai zu schwach. 




Wenn 1: Weiter zu »EINS» 


130 — 150 : Abfrage ob "SPACE" gedriickt wurde durch 


060 - 090 


Ausgabe an Port 254 (Bit 4 = Lautsprecher; 




Port BC (32766), Bit 0. Wenn nicht ge- 




Bit 3 = MIC-Ausgang; Bit 0-2 = Border Far- 




driickt wurde: Sprung zu »LOOP". 




be) mit tor Bit 4, 1 fur Bit 3 und 5 (ent- 


160 


: Offnen des Interrupts. 




spricht cyan] fur Bit 0-2. Daraufhin tolgt die- 


170 


: Rlicksprung ins BASIC 



m P3 


881 § BCOPY 6 1 


38888 


754ft ED7S 
764C CB47 


8138 CONT IN 
8148 BIT 


A,(C) 
9. A 


7531 01FE7F 


0828 LOOP ID 


BC, 32766 




8158 JP 








A, 1254J 








7536 C87? 


0848 BIT 


6. ft 




8178 RET 




7S38 CA4675 


8868 jp 


Z, NULL 




0168 END 




753B 3£8P 


0868 EINS LD 


A, 13 


CONT 764A 






7S3D D3FE 


0878 OUT 


(254), A 


NULL 7546 






753F 3E85 


8830 LD 




EINS 753B 






7541 D3FE 


0098 OUT 


(£64). A 








7543 C34A75 


8188 JP 


CONT 








7546 3E92 


8118 NULL LD 


A, 2 








7548 D3FE. 


8128 OUT 


(254), ft 


Maschinencode-Listing »Bii-Kopierer« 





E^ESEsmMmm 



Soil- und Hardware an go Hole But Anfrage! 



U. KUNZ 




SPECTRUM SCHNEIDER CPC 464, 664 

DIE DEUTSCHEN MULTIS KOMMEN: 

Rolf Strecker 

Elektronik- & Computervertrieb 

Luxemburger Str. 76 

5000 Koln 1 

Tel. 0221141 77 89 

proudly presents 

MULTICOM 




und uieles, vieles 
Handleranfragen 
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lips&Tricks 

UDGs durch 
POKE-Befehle 

Mit diesem Hilfsprogramm konnen Sie 
Grafik-Zeichen auf dem Bildschirm 
darstellen, ohne diese vorher zu defi- 
nieren. 

Man kann zum Beispiel mit Hilfe dieses Programms Muster 
auswahlen, um diese in eigene Spiele als Hinlergrund Oder als 
Mauem einzubauen. 

Wenn das Programm eingegeben und gestartet worden ist. 
mu3 man eineZahl zwischen und 255 eingeben (viele Varia- 
ilcnsmnglichkeiten). 

Nun bekommt man verschiedene Muster gezeigt. (Beliebige 
Taste driicken, damit neues Muster erscheint; Q (mit Caps 
Shift) driicken, damit man neue Variation szahl eingeben kann.) 
Unten stehtjeweils, welches Zcichor- ms.i fiingeben muB, um 
dieses Zeiohen zu erhaiten Der POKE-Befehl, den man vorher 
eingeben muB, erscheint auch auf dem Bildschirm. 

□er Zeichensatz wird durch den POKE-Befehl verandert 
Um den Zeichensatz wieder normal darstellen z a konnen, muB 
man POKE 23607,60 eingeben. Mit GO TO 300 kann man 
das Programm »UDGs durch POKE-Befehle« auf Band si- 
chern: 

Aufschliisselung nach Zeilennummern: 
120 — 130 : Eingabe der Pokezahl 
1 40 — 2 1 ; Hauptprogramm: 

145 : Zoid ien<-;;-:vr v;ird cijrch Pokez ah I verandert 

150— 180 : Muster erscheint auf Bildschirm 



190 ; Angaben zum Muster erscheinen auf dem 

Bildschirm 
200 : Tastaturabfrage 

300 — 320 : SAVEn fur Programm: .UDGs durch POKE- 

BeEehles 
Variable n lisle: 

z POKE-Wert. um den Zeichensatz zu verandem 
f Schleifenvariable, damit alle Zeichen des Zeichensatz er- 
scheinen 
g,h Schleitenvariablen zum Zeichnen des Musters 

(Bemhard Baran) 



















110 








1.28 


und 


255 singsben . i60=narn)i L 




IF 2(8 OR Z>255 THEN 00 TO 












J3SB?,Z 










170 


PRINT AT a,h;CHRI f ; FlT 6,10 






NEXT h: NEXT 






»/*; 








M0 


PAUSE 8: IF INKEY»*"G" THEN 








CLS : SRVE ,i UDQ ,i LINE 1 










330 


VERIFY "UDO" 



Basic-Listing hIIDGh 



Funktions- 
tasten trotz 
Interface 1 

In Happy-Computer Ausgabe 1/1985 
stand ein sehr schones Programm von 
R. Fuchs. Man kann damit jede Spec- 
trumtaste mit einer Funktion belegen. 
Leider lauft das Programm nur auf ei- 
nem 48-KByte-Spectrum ohne Interfa- 
ce 1. Ich habe versucht das Programm 
so umzuschreiben, daft dieser es so 
wohl mit Interface 1 als auch auf dem 
16-KByte-Spectrum lauft. 

Bei dieser Arbeit hat sich herausgestellt, daB das Programm 
auf einem 16-KByte-Spectrum mi: mi! -'-nam :;,chweren Nach- 

teil lauft: einem schlechten Bild. Offensichllich greift die Inter- 
ruptmodus Anderung in die Bildsynchronisation ein. Da beim 
16-KByte-Spectrum die Fun ktions fasten Routine in dem glei- 

84 filfe 



chen Speicherblock liegt wie der Videospeicher, kommteszu 
Kollisionen zwischen bciden. Schade fiir die 16-KByte-Be- 

Warum lief das Programm mit Interface 1 nicht?DerAutorbe- 
nutzte das ROM fiir die Adresse der Interrupt-Routine Dazu 
uberlegenwiruns, was im Interruptmodus 2 passiert. DerZSO 
setzt eine Adresse aus dem l-Register und dem Wert auf dem 
Datenbus (den liefert normalerweise das Gerat, das den Inter- 
rupt praduziert hat| zusammen. Beim Spectrum liegt auf dem 



32260 




9S5 


:s£:--S = 


00003E7DED4721FF -: 


733 


32276 


■ -: . ..-. ■ ■ ■ :■■■■:■. \-y : -:z ■ 


765 


■"■a.Pa-4. 


!flS3scaaeB7E3C00 -: 


450 


32292 


3aaD7EC9FFF30DES -: 


1338 




ESD5F53R0D7EFE01 -'. 


1139 


■■ :■:;;:■■: 


Srt3 ! -::-L.'CB0ieESS61 -: 


803 


:-£3ii- 


CD1C7EOD2R0B7EDD -: 




3i3ii- 


7E04FEER2050DD7E -: 


1077 


3333S 


„3l4DD -> 


609 


■■■■: ■■■ 


: -DSB0B -: 






7E19 110400 19220B -: 


242 


.. ■. ■ ■ 


:8CD377E3E01 -: 




32364 


2fl0B -> 


531 


32372 


7EDD7E07FE0D281E -: 


817 


3ii3c0 


FE4020023E0DQD8A -> 


770 


: :■.: :::■ '. 


7E1S16DD7E073208 -: 


584 


::■ : ..■:; :■ 


.. .-.. . ■ . . . . ■ . ■ - 


770 


- ■ ■ ■ 






32412 


7EF101E1DDE1FSC9 -> 


1699 



Hex-Listing fur 16-KByte-Version 



fifin pMMTTmm 



Jetzt neu! 

Serienbriefe — kern Problem! 
Textverarbeitung und AdreB- 
verwaltung — ein kombiniertes Paket! 

Das Programm unterstulzt das Diskettenlaufwerk 
(WahlmSglichkeit: Speicherung Ihrer Briefe und 
Adressen auf Kassette Oder Diskette). 
Leistungsbeschreibung von CPOText 

» .'■/■'!iii:;i?:.T'.'U-l!': L^illenoifjhrunQ 
• Autornafeche Trennvorsctilagp 




Als Ergtinzung empfehlen 

wir Ihnen «nser neues 

Budi fur lien Sdineider CPC: 

CPC464 

FUR EIN- UND 
UMSTEIGER 




MaitaOediiiik 



Tips&Trkks 



Datenbus. beim Interrupt immer 255. Das l-Register Kann man 
beliebig laden. Bei der Adresse 256"l + 255 schaut der Z80 
dann nach der Adresse, an der die Interruptroutine beginnt. 
Der Autorhattel = gesetzi. Das Lofcr! wrm Adresse im ROM 
(also einen vorgegeben Wert). Und wenn gerade das neue 
ROM eingeschaltet war ginc i licnts n-olr. da dann naturlich et- 
was anderes im ROM als Adresse gelesen wurde. Ich habe die 
Variable MIADD (siehe Disassembler- Listing) im RAM einge- 
liihrt, undschreibe die Adresse dort hinein. Dazu habe ich I mit 
253 beziehungsweise 125 geladen. 

So arbeitet die Routine 

Das Laden des Rfigis'tvs; I i.k.iernimmt die geanderte Initiali- 
sierungsroutine. Sie schreibt auch die Startadresse der Funk- 

ziehungsweise 32255. Aulierdem berucksichtlgen die Ande- 
rungen, daft tier n^gi'in ..is; Rariioir.-ooY-nrris sx.'i verscbie- 

Wie benutzt man die Routine? Genau wie bisher. Man 
schreibt sich REM-Zeilen, die ctie Betehle enthatten. Der Ma- 
schinencode kann nicht verschoben werden, da absolute 
Adressen verwendet werden. Man starlet ihn mit »RANDOMI- 
Z£ USR 6504(k (32P70) jr.i:i nan io.hall^l ihn ab mit .RAN- 
DOMIZE US 65030* (32260). Urn weiteres braucht man sich 
nicht zu kummern. Der Code kann mit »SAVE "name" CODE 
65030,160« (32260,160) gesichert werden. AuBerdem darf 
■ man vor dem Laden das »CLEAR 65022« (32254) nicht ver- 
gessen. Damit is! dann auch MIADD geschutzt. 

Microdrive-Hi nweise 

Noch ein Tip fur Microdrive-Besitzer. Bei mir hat sich die foJ- 
gende Belegung bewahrt. 

1 REM CAT CAT 1 @ 

2 REM LOAD: LOAD *"m";1;" 

3 REM SAVE:INPUT a$:ERASE "m";1;a$: 
SAVE *"m";1;a$@ 

In Zeile zwei habe ich das Zeichen »©• nicht vergessen. Ich 
brauchedarnit nur noch den Nrnr-on des riles einzutippen. Das 
»<«:■« bewirkl, d i " I , - i- i-'iuhrtwird; oh- 

ne das »@« kann man noch etwas anhangen, Und man muli 
dann ENTER dr&cken. 

(R. W. Geriing) 



65030 


3E3EEO47ED56C905 - 




65036 


5D0036FDED47S1FF -; 


1004 


S504.& 


FD362R 2336 FEED BE -. 




b703c 


2R535C220DFE3E00 -> 


580 


65062 


~cC9FFF3DDE5 -> 




^■ = ■073 


E5D5F53R0FFEFE01 -> 




>-5i?7.3 


:-'33,".~DCB016E2S61 -> 


803 


::■. ::■■-■ 


CD1EFEOD2H0DFEDD -J 
7E04FEER2050Cr- - 




55094 




5 5j,*£ 


-14CD -> 




65110 






55118 


FE 191 10400 19220D -'. 




6512D 


■ .■■.■ .■.:■■■■: 


1153 


tab 13 A 


320FFE1S2CDDSR0D -: 




6514--' 


;-~:"D &87--SD2tt:J> -.■ 


945 


65150 


^■■7..:>;::.:..- : ■■ \ . ■ . 




1-.5158 


.-3.7; 77:,3''777320S -> 


712 


6 b 16 3 


. ..... ,. , . : , , 


772 


55174. 






65132 


FEF1D1E1DDE1FBC9 -> 


1S37 







LS 




FE41 


DD2R0DFE LD 


IX, (L10 ) 


FE45 


DD7E04 LD 


R, (IX+4) 


FE4S 


FEEfl 


CP 


ER 


FE4R 


2050 


JR 


NZ,+301L49 
fl, (IX +5) 


FE4C 


DD7E05 LD 


FE4F 


310S5C L0 


ML,LRST-K 


FE52 


BE 


CP 


(HL> 


FE53 


2814 


JR 


Z,+20tt-25 


FES5 


DD6E02 LD 


L, tIX+2) 


FES9 


DD6603 LD 


H, (IX+3) 


FESB 


ED5B0DFE LD 


DE, (L10 ) 


FE5F 


19 


ADD 


HL,DE 


FE60 


110400 LD 


DE.0004 


FE63 


19 


RDD 


ML,DE 


FE64 


220DFE 


(LIS ) ,ML 
-40|L5 


FE67 


18D8 


JR 






LS5 




FE69 


CD39FE 


LAS 


FESC 


3E01 


LD 


R,01 


FE6E 


320FFE LD 


(L20 ) ,fi 
+44IL50 


FE71 


1S2C 


JR 






L30 




FE73 


DDSR0DFE LD 


IX, (L10 ) 


FE77 


DD7E07 LD 


R, (IX+7J 


FE7R 


FE0D 


CP 


0D 


FE7C 


28 IE 


JR 


Z , +30BL49 


FE7E 


FE40 


CP 


40 


FE80 


2002 


JR 


NZ.+2HL31 


FE82 


3E0D 


LD 
L31 


R,0D 


FES4 


CD8CFE 


L46 


FE87 


1816 


JR 

L45 

' LD 


+22iL50 


FE89 


DD7E0 


fl, CIX+7) 






LA6 




FESC 


320S5C LD 


(LR5T-K) ,R 


FE8F 


B13B5C LD 


ML, FLAGS 


FE92 


CBEE 


SET 


S, (ML) 


FE94 


BR0DFE LD 


ML, (L10 ) 


FE97 


23 


INC 


ML 


FE9S 


220DFE LD 


(L10 1 ,ML 


FE9B 


33 


RET 
L49 




FE9C 


CD1EFE 


LI 






L50 




FE9F 


Fl 


POP 


flF 


FER0 


Dl 


POP 


DE 


FEfll 


El 


POP 


ML 


FER2 


DDE1 


POP 


IX 


FER4 


FB 


EZ 




FER5 


C9 


RET 




SyfllbO L6 : 






LRST- 


K EQU 


SC0S (23560) 


FLRGS 


EQU 


5C3B (23611) 


PROG 


EQU 


SC53 (23635) 


MIRDC 


EQU 


FDFF 165023) 


RBSCr- 


EQU 


FE05 (65030) 


L10 


EOU 


FEOD (65037) 


L20 


EQU 


FE0F (6503S) 


RNSCr- 


EOU 


FE10 (650*0) 


Ll 


EQU 


FE1E (65054) 


STRRT 


EOU 


FE2R (65065) 


LS 


EOU 


FE41 (65039) 


L35 


EOU 


FE69 (65129) 


L30 


EOU 


FE73 (65139) 


L34 


EOU 


FE84 (65156) 


L4S 


EOU 


FE89 (65161) 


L46 


EOU 


FESC (65164) 


L49 


EOU 


FE9C (65180) 


L50 


EOU 


FE9F (65183) 



Hex-Listing tiir 4B-KByteAfersiori 
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Assembler-Listing >>Funktionstasten^ 



Tips&Trkks 



Spectrum- 
Hexerei 

Hexadezi ma l-Li stings sind kiirzer und 
leichter einzutippen, als in dezimaler 
Form. 



it Priifsumme ent- 

DieWertefurdieZeilen20und410sindhiernureinBeispiel. 
Diese Zahlen entnehmen Sie bitte dem jeweiligen Listing. Die 
Zahl rechts ist eine Priifsumme, die automatisch errechnet 
wird und der Kontrolle dient 

Die Eingabe erfolgt mft RUN, die Ausgabe mit -RUN 400«. 
Spectrum- Listings, die Sie uns anbieten, miissen mit diesem 
Programm gelistet sein. (mk) 



1 REM 

2 REM HEX LOADER 

3 REM 

4. REM SPECTRUM - VERSION 

5 REM MANFRED-D. KGTTINS 

6 REM 

10 REM 5PEICHEREINGRBE 

20 FOR 1=23760 TO 23303 5TEP 3 

30 PRINT Ij " ■■; 

40 INPUT PS 

41 IF LEN Stole THEN GO TO 20 

45 PRINT AS; " -> •■■. 

45 LET C=0 

50 FOR Jsl TO 1+7 

60 LET P= U-Ii *2 + l 

70 LET Y=CODE A* tP) 



71 IF Y>57 THEN LET Y*Y-7 


■ 


72 LET X=CGDE R$ f.P + 1) 




73 IF X>57 THEN LET X=X-7 




74 LET X=X~43+ 'Y-43J #15 




30 LET C = C + X 




90 POKE J,X 




100 NEXT J 




110 INPUT Z 




115 IF C=Z THEN PRINT C 




12fl IF ZoC THEN GO TO 280 




130 NEXT I 




140 STOP 




230 CLS : REM FEHLERMELDUNG 


210 PRINT "ERROR - GEBEN SIE DI 


£ ZEILE NOCHEINMAL EIN" 




220 GO TO 30 




4-00 REM SPEICHERAUSGRBE 




410 FOR 1=23760 TO 23303 STEP =■■ 


420 LET C=0 




430 PRINT I; " "; 




440 FOR J*I TO 1+7 




450 LET AJ=CHR* INT iPEEK 


J/16 + 


43) : LET EJ'CHRS (PEEK J-16 


*INT 


(PEEK J/16) +43) 




451 IF CODE fl*>57 THEN LET 


AJ=C 


HR* INT [PEEK J/16+55) 
452 IF CODE S$>57 THEN LET 




B$=C 


HR* (PEEK J-16*INT (PEEK J/ 
5) 

455 PRINT fl$;Bi; 

460 LET C=C+PEEK J 


16 J +5 






470 NEXT J 




475 PRINT " -> -;Q 




4S0 NEXT I 




490 STOP 




500 SAUE "HEXLOADER" 




23760 5245534652564945 -> 
23763 52544= c 


613 


570 


23775 545R204655455220 -> 


544 


23734 3536204259544520 -> 


479 


23792 4Q41S34343494E45 -> 


584 


23300 4E434F44452D5052 -> 


566 


23S0S 4F4752414D4D4520 - > 


552 


Listing mit Testausdruck 





Das Kassetten- 
Interface 

Der Spectrum hat ein ausgezeichne- 
tes Kassetten-lnterface. Es ist aller- 
dings nur sehr wenig uber die Benut- 
zung der entsprechenden ROM-Routi- 
nen bekannt. 

Ein Kassetten-File bestGh; aus /mei Isilen: dem Header und 
dem Datenteii. Der Header ist 17 Bytelang. Dazukommtnoch 
am Anfang ein Flagbyte und am SchluB ein Checksummen by- 
te. Was in den 17 Byte steht, zeigt die folgende Aufstellung: 
Byte Inhalt 

1 Typ: = Programm 

1 = Zahfen Array 

2 — String Array 

3 = Code 

2—11 Die 10 Zeichen des Namens 



12/13 Die Lange 
14/15 HSngtab uom Typ 

0: Die Autostart Zeilennummer; Falls kei- 
ne, den Wert 32768=8000h 
1: Das erste Byte des Arrays: 
2: Das erste Byte des Arrays: 
3: Startadresse des Codes 
16/17 Nur bei Programmen: 

Die Lange vom Programm obne Variablen 
Listing 1 zeigt ein Programm, das diese Information auswor- 
tet. Listing 2 zeio: ona:i typischen Ausdruck dieses Pro- 
gramma Lediglich die Information aus Byte 16/17 wird nicht 
angezeigt. Sie wird aber im Programm in Zeile 200 berechnet 
(Variable s). Man kann sie also leicrtt einbauen, wenn man 
m6chte 

Schauen wir uns in Usting 3 das Maschinencode- Programm 
an. E st i t> ROM kopiert. Es mft die 

Routine an Adresse 1366 = 556hauf. Das ist eine Routine, die 
das Flagbyte testet, dann Bytes ladt und dann die Checksum- 
me iiberpruft Falls irgendetwas nicht stimmt, springt es mit 
Carryflag Reset zjmck. Dns kleine M asch in encode- Pro- 
gramm ISuft in einer Endlos-Schleife, bis das Carryflag gesetzt 
ist. Das Flagbyte ist: 
255 = FFh bei Daten block 
0=00h bei Headerblock. 
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Das Flagbyte muB. bevor man die Routine 556h aufruft, in 
Register Astehen. DasReQistorpaarDFe-iihalldieLangedes 
zu lesenden Blocks (17liireinen Header). Im Registerpaar IX 
muB die Startadresse der Daten stehen. 

Es gibt eine entsprechende Routine an der Adresse 
1218 = 4C2h, dicdio Eiylcis waved. Die Parameter werden ge- 
naijso ubergeben, wie beim Laden. 

Man kan jqen. Listing 

A, 5 und 6 zeigen die SAVE-, LOAD- und VERIFV-Routinen. Die 
Parameter fiir START und LANGE sind so gesetzt, da3 man mit 
den Programmen den Bildschirminhalt speichern und laden 
kann. Mansollieuio n&utintiri yijy kl«=nen programmen benut- 
zen. Interaktiv kann es Probleme beim VERIFY geben. Will 
man Header erzeugen, so muG das Register A mit OOh anstel- 
le von FFh geladden werden. 

Die Listings 4. 5 und 6 kdnnen an jede beliebige Stelle des 
RAWs gesetzt werden. Listing 7 zeigt alle drei Routinen im 
Happy-Computer-Format ab Adresse 50000. Die Einsprung- 
adressen sind: 

50000 LOAD 
50016 SAVE 
50047 VERIFY 

Vrel Spa(3 mit den Header-losen Files, die es sonst ja nur in 
gekauften Prof i- Programmen gibt. 

(R. W. Gerling) 



13 REM Tape Analyst 

irS??6» ..run, 
11 CLEAR 39999 

IS DEF FN PlX)»PEEK X+256#PEEK. 
(x + l> ; LET P-30016 

20 FOR i=l TO 16: READ a: POKE 
29999+* ,a : NEXT i 
33 DATS 881,33,61-, 117, 17, 17,0, 
175, SS, 836,36, 5 ,316,195,48,117 
4-0 PRINT INUER3E £.;"« T«PS Rna 

lyse by R.U. Geriing *"; INVERSE 

50 print ■' Nane";THB 10; "Laen 
ge Beruernung 1 " ' ; plot 0,156: o 
RRUI 255,0 

60 PRINT ttl;" Stan Tapa, than 
press any Uu": PRUSE e 

65 PRINT Bl, RT 1,0, , 
7fl RANDOMIZE USR 30000 
75 LET n( = "" 

30 LET typ.PEEK p: LET I »FN PI 
P+ll): FOR i-P+1 TO P+10: LET ns 
=n|+CHRJ PEEK i: NEXT i 

90 LET LS=5TRJ t: LET Li-" 
" (1 TO 6-LEN Hi +L» 
100 PRINT ni; ti; ■■ "; 
110 IF typ>3 THEN PRINT "Ltstn 
h L*r". GO TO 70 
130 IF tup <3 THEN 30 TO 170 
14-0 LET SaFN p (p + 13) 
150 IF S-163S4 RND L*S912 THEN 
PRINT "SCREENS "; 90 TO 70 

- -coDr ■ ■ 



160 PRINT "CODE ab: 
70 



GO TO 

170 IF typ=0 THEN GO TO 200 
130 LET S=PEEK ip+14) : LET t»IN 
T ls,'32) : LET LS=CHR$ <s-32*t+96 
): IF t=2 OR tx6 THEN LET H=LS + 



190 PRINT "Array ; "; 


H; GO 


TO 7 


200 LET L=FN p ip + 13) 
(P + 15) 

210 PRINT "Prog, "; 
280 IF L<10000 THEN 


LET 

PRINT 


sFN 

LIN 



"m"; 1; "T-ftna 



Listing 1. Das Programm Tape-Analyse listet alle Files auf 






1132 Prog. 
355 Prog . 
1072 Prog. 
8354. Prog. 

794.3 Pf-09. 

2635 Prog. 

256 CODE 

8471 Prog. 
32*1 Prog. 
77ft Prog . 
2026 Prog. 
2213 Prog . 



Listing 2. Beispiel Ausdruck des Programms Tape-Analyse. 



3.3B 7. Januar 1985 



7534- 111100 LD OE.0011 

7537 RF XOR R 

7538 37 SCF 

7539 CD5605 CALL 0556 
7S3CTJ5 RET C 
7530 C33B7S JP BEGINN 





Uersion 3.0g 


L 7. Januar 1985 






C360 3EFD 


LD R.FD 












0309 CD0A0C 












C373 11001B 


















JP 04C2 


Syrj,bOLe; 








5P.UEN EOU 0360 (50016) 



Listing 4. Ein Maschinencode-Programm, das den Bild- 
schirminhalt ohne Header auf Band speichert. Die Werte 
fur LANGE und START miissen fiir andere Anwendungen 
geandert werden. Die Routine bei 3082=COAh druckt die 
Start Tape Message und die Routine bei 5588— 15D4h war- 
tet, bis eine Taste gedriickt wird. 



:jSSl5. 



Morto&lediiiik liuclncrlay 



werden sie ein Profi — 
mit dem Commodore 64 




Die Floppy 1541 n, 



Commodore 64 Programrni.imrniung. js™ a < isbs. 205 sen- 
. . . ■; . .■. ■ :. ■ ; . :■ ■ ■: ... 3 ■■ 



/ 






■c 64 - Hulliplan 



«,MaS3I4,10l DM 48,- 



Markl STechnik-Fachbucher 
erhalten Sie bei Ihrem Buchhandier. 

Fragen Sie dort nach unserem 
Gesamtkatalog mit iiber 170 neuen 
Computerbiichern. 



Bestellkarten bitte an Itiren Buch handler Oder an 
einen unsercr Depol-Handler. Adiessenverzeichnls am 
Ende des Hefles. Beim Mark! & Tech nik Verlag 
elngehende Beslellungen werden von den 
Depot-Hand lern ausgeliefert. 




MarktSTeohnik Werlag AG *>•* 



Anwendungs-Listing 



C350 

C354 110018 
C357 3? 
C3S3 3EFF 
C35H CD5605 
C3SD OS 
C35E 13F0 



LRENGE EOU 
STfHHT EOU 

LRDEN EOU 



LRDEN : 
21004-0 L.D IX.STRRT 
DE, LRENGE 



SCF 

LD fl.FF 

CALL 0553 

RET C 

JR -ISBlRDEN 



1B00 < 6912) 
1300 L163S4-J 
:350 (50800) 





Uersion 3. eg 


Assoc * 6?fl?8 - 4 — BBS 
7. Jamjar 1935 


VERIFY : 
C37F DDi :.'-::-.:C- iTARi 
c;£3 11001B Lt> DE, LRENGE 
C336 R7 AND fi 
C3S7 3EFF LD R , f=F 
USES CO5605 CfiLL 0556 
C3SC D3 RET C 
C38D CF RST 3B 
C38E lfl CEFS 1R 

Syrobo le : 

LRENGE EOU 1B00 ( S912) 
START ESU 40012 [16334.1 
VERIFY EOU C37F 150047! 



50000 


DD21004.011001B37 - 










































FFCD5605D3CF1R00 - 


> 1000 



A Listing 7. Das Hex-Listing aller Routinen 



Mathe-Trainer 

Es handelt sich hier urn ein Ubungs- 
programm fur die vier Grundrechen- 
arten. 

DasgesamtePragrammistrechtgegiiedertgeschrieben, so 
daB kaum Scliw'srig-ieiten a^T-rjran, don Procira rrirriiibl;: i if /i. 
verfolgen. Doch sei folgend noch auf die Funktion einzelner 
Unterprogramme eingegangen. 
Umlaute 

Gleich nach Progfammsfartwird dieser Programmteil ausge- 
fiihrt. Da die Buchstaben a, o. u und a im Alphabet nicht aufein- 
ander folgen, die Umlaute aber in den dazugehdrigen UDGs 
untergebracht warden sollten. wurde der Umweg uber den 
String gewahlt. 
Hauptprogramm 

Das Hauptprogramm stellt auf dem Biidschirm ein Menu dar, 
lafit eine Melodie erklingen und verzweigt den Programmlautje 
nach Watil in die einzelnen Funktionen. 
GETiS 

Etwas Besonderes stellt dieses Unterprogramm dar. Eigent- 
licher Sinn ist es, wie der Name schon sagt, die Simulation des 
GET-Befehls einiger Basic-interpreter Doch geschieht noch 
einiges mehr; 

— Der Text in t$ wirdinBiIdschirmzeile23alsl_aufschriftdarge- 

— Der Cursor (heller Untergrund] wird an der Bildstelle (y,x) 
dargestellL 

— ji'":" 

Weiterhin sei noch erwahnt, daB in diesem Unterprogramm 
nicht INKEYS, sondern die Systemvariable LAST-K aus Reak- 
tionsgriinden verwendet wurde. 
Rahmen 

Zur Verzierung sind an einigen Programmstellen Stemchen- 
umrandungen verwendet worden. Hier werden sie erzeugt. 



CLS 

Die Tasiatur wird auf CAPS-! OGK eingesteft der Biidschirm 

yoloKChj und die Koplze v- n,r.'j^:jcbnn. 

Bei falscher Eingabe ioi'i.jnaufgaben wird 

dieses Unterprogramm ai r;eii.-i.e': I ;, .sT!i eine Melodie er- 
klingen und andert den I .i ils.riir fttexl Weiterhin wird die 
Fehleranzahl (fe) inkeementiert. 
Rich tig 

Ist eine Ziffer richtig, dann wird diese Prozedur ausgefuhrt. 

EinekurzeTonfoki'.-orklir-o':': dio m;;yli:;|v: Gv^r.mtfehleranzahl 
■-'■- irx: ii^krementiertund der Laufschrrfttext geandert. 

Diese Prozedur liest die DATA-Zeile, deren Nummer in *mel» 
gespeichert istundspieltsieals Melodie. Da der Spectrum kei- 
ne Musikpausen kennt, wurde der hSchstmogliche Ton ver- 
wendet, den wohl kaum ein menschlichesOhrhorenkann, zu- 
mal die Lautstarke des Spectrum nicht gerade das Trommelfell 
platzenlSBt. Weiisrhir; « k die Tastalur ab- 

gefragt und die Prozedur endet. sobald eine Taste gedruckt 
wird. Um jedoch weder durch vorige Tastendrucke diesen Vor- 
gang auszulSsen noch diesen Tastendruck an die weitere Ta- 
staturabfragen zu ubergeben, sindnocheinigeSicherheitsvor- 
kehrungen getroffen worden. 
Addition 

Dieses Unterprogramm stellt eine Additions- Auf gabe und 
erwartet die einzelnen Ziffern der schrittlichen Losung, worauf 
dann die Korrektheit Oder Unkorrektheit angezeigt und durch 
eine Tonfolge bekraftigt wird. Nach der Ausgabe der Uber- 
schrift, einem erlauternden Text und einem Rahmen fur die 
Aufgabe, ertont eine Emptangsmelodia Dann beginnt eine 
Laulschrilt, und das Recrinen kann starten. DieAnnahmeeiner 
Ziffer gliedert sich in drei Teile: 

— Berechnen des Wertes und Umformen in einen String 

— Lesen einer Ziffer von der Tastatur 

— Korrektheit prufen und eventuell neu lesen 

Die Berechnung des Obertrages ist der Summenberech- 
nung gleich ar :hl i !,.■■:■ i Ablau berechnen, be- 



90 sife 



Anwendungs-Listing 



Function 



Das Hauptmenu 

Rngefangen mil dan ** 

Einern, a Lso dir * 

tzttn spa itt , * 

Lien die ZifFern * 



den doppi 
Spalls, < 



004.72 
+ 12160 
+ 69557 
+ 56368 



Until geschrieber 

Be; den Zehnar 

bis Zehntagsende 
auch die Zehntr 
SpaLte nit addier 

Addition sii bung 
rechnen, lesen. priifen, les 
dann von der Taslatur erw; 
Subtraktion, Multipllkalioi 
Der/" ' 

Test 

Dieses Unterprogramm liest den Namen ( 
Schulers, stelltvonjedem Aufgabentyp eine Aufgabe, undgibt 
sine Urkunde aus. die auch ausgedruckt werden kann. 
Anleiiung zur Benutzung 

BevoreinSchiJer an ur*i Comix^r ;;fief.-;/twird, ummitdie- 
sem Programrn das sen rift] ic he Berechnen der vier Grund- 
rechnungsarten yu cue- : Scftwester, 

der alte Bruder, ein Eltemteil oder eine andere Person tun, die 
das Rechnen beherrscht und sich die erlauternden Texte ne- 
ben den Aufgabwn duK-.fiio;:;eri. Dcnn die Reihenfolge desNie- 
derschreibens der einzelnen Zifter kann von Lehrer zu Lehrer 
schon recht verschieden sein, und diese Reihenfolge ist auch 
einzutialten, da das Programrn die Eingabe sons! als falsch 
wertet. Doch durften dahingenend eigentlich kaum Schwierig- 
keiten entstehen, weil das Programrn an die Stelle, an der eine 
Eingabe erwartet wird, einen Cursor setzt. 



« ya 


Koordmationdesobereniin 


,,.-, ividr *>-, ffjr Rahman 


























oes 


iihl; die qerachten re™ 


e Mednlie In DATA- 


iS 


ilDt rli(: riVi /ifrr-. ^■■■ws 


fflrGETan 


zS 


i 1 MiPZiffsmBiner 


-.gate und deren 


sS 


Siimme airier Spalte 










dS 












P$ 






rS 


Re5 ' *" ^'^ 


Variablenliste 



10 RE" 

11 REM 

12 REM I 



30 LET u*="»ous" 

40 FOR nal TO 4; FOR m "0 TO 7 

41 RERD B: POKE USR u|(n)+iil,4 
43 NEXT m : NEXT n 

50 DRTR 40,8,66,4,60,66,60,0 
61 ORTR 40,0,66,66,68,66,66,0 
52 DflTfl 40,0,66,66,68,60,66,6 
63 DRTR 0,112,72,118,72,66,180 



110 SO SUB 400 

190 LET xa=3: LET dX«26: LET ua 
=2: LET dy=5: SO SUB 330 

121 Print rt a,9;" uer*ion _1.B 

";RT 4,9; "Mi chae l He.nrug";RT 6. 
12: " © 1984 " 

130 LET x**0: LET dx.3fi: LET ga 
*S: LET dg-14: 00 SUB 300 

131 PRINT RT 8,1U" M « n U i ' ; P. 
T I0,3;"fl)ddi tion";RT 11,3; "Slut 
tr*Ktion";flT 18,3; ''miuUIpu iU 
on";RT i3,3i"0> M»ion"jfiT 14,3; 
"T)t*i";RT is,3; "Bjeendlgung des 

Rrogr*inm5".ifiT 17,2;"Bitt« der. 
fin farnsbuthstaben ** der gewun 
achten Funntion ** eing«b«n!" 

138 LET tali LET t»«" Dl 

a einzelnen Rs chenreethoden soi.Lt 
an dan Schulsr luuof erKtart W«r 
den. Zu diesem ZuecK sind neben 
dan aurgaben tune Rruei tun»«n g 
egeben. Uiel SpsB und ebeniov 

ie l ErFDlg wunsch t Michael. 

133 LET mel-310: GO SUB 900 



:»i? 



LET 

14- -. 

142 IF 

143 IF 

144 IF 

145 IF 

146 IF 

150 GO : 

151 LET Xa«7i LET dX-18 
=9: LET du«5: 00 SUB 303 
RT 11,13; "tSChuP" 

160 POKE 23656,3 

199 STOP 

800 REM 

III SIC 

84)3 REM 

210 PRINT RT I 

280 IF INKEY*. 



'■It ». 



iUB 300 
THEN 00 SUB 1000 
THEN GO SUB 8000 
THEN GO SUB 3000 
THEN SO SUB 4000 
THEN 00 SUB 5000 

I" THEN RUN 



HM" 



OKj.un: a, 
THEN GO TO S8 

W 281 POKE 23560,0 

230 LET i«-CHRC PEEK 23560 

231 LET l-t+.S: ™ 
N LET t*l 

232 IF INT t+3KsLEN t* THEN PR 
INT BOtPlT l,0;l?£INT t TO INT t + 



>LEN tt THE 



31) : G6 TO 834 



233 PRINT 80;RT 1.8i.ti 

U$t TO 31-LEN tj + INf 
IF |* H £hR» THEN i 

OAt> p,-iD 3 -^ TtS I EM H,± 



m 



FOR - - 
. _ IF mil 

342 NEXT i ; ir : 
100 

243 BEEP .6,-10: 
SSfl PRINT RT y ,X 
861 BEEP .01, -20 
260 RETURN 

300 REM 

301 REM 
308 REM 



Basic-Listing <>Mathe« 



INT t TO 



_. 00 TO 830 
LEN m$ 
* THEN GO TO 850 
i«="B" THEN RUN 



GO TO 280 



aS& 91 



Anwendungs-tisling 



310 PRINT AT ut.Xi, 

5ae FOR X»l TO dX: PRINT "*", : 

33B PRINT BT ua + dy -1 , X* , 

nIxt £ oft x=1 dX: "*" ; : 

350 FOR y»l TO dy-2: PRINT AT u 
a+y ,xaj "* H ;TRB X**dX-lJ "a": NEXT 



422 REM Hfbl»..»Tll 
410 CL5 

423 POKE 53658,8 

4.30 PRINT "GRUNDRECHENARTEN UEB 
UNGSPRQGRAMM' 7 
440 RETURN 
sea REM 

501 REM _^______ 

503 REM 

510 PRINT 80;HT 1,0; PLASH 1; " 

Leidcr fa Lschl " , 
520 for t>e to -la step -a.s 

- T,ti BEEP ,a,t; BEEP 



^i* 



..BEEP .e,t 



initial 
Du d 



LET 



doch no 

■Kt arhl 

Erstbn 



54a LET faife+i 

S5e RETURN 

609 REM 

691 REM 

&fls rem UiiTOSOTn 

t03 REM 
.IS BEEP .1,-7: BEEP 
623 LET tj = " [>. 
htifl. Suf lur niehstan 



548 LET 
650 RETU 

700 REM 

701 REM 
703 REM 
703 REM 



es-9es+l 



710 PRINT 80; fl- 
AU.ej rtchtis 
7 = LET me L"99< 
730 PAUSE 2B0 
740 RETURN 
600 REM 

801 REM 

302 REM "f mil-Ill 

803 REM 

810 LET t»l: LI 

nn Dir Kiar i»t. 

aba rechnan mu6 ■ 



gtmaeht i 

SUB. 900 



Un dies* Aufgaba zu baanden 
, st be einfach 'B sin. 

811 RETURN 

900 REM 

901 REM 

902 REM marniui— 

903 REM — ^^-»-"— -« 

910 RESTORE NSl 

911 PRINT 80; AT 1,0;" Jade Tast 
e beendat dia MuiiU 

920 IF INKEYIO"" THEN GO TO 92 



932 RETURN 

940 READ dur.pi t 

941 IF duroe THEN BEEP dg 
: 00 TO 930 , 

942 IF pit<>0 THEN BEEP pi 
GO TO 930 

9S0 RETURN 

960 DATA .2,4, .2,7, .2,7, .2,7, 
" ",.2,4., .2,7, .4,7 A 



2 , 7 , . 2 , 7 , . 2 , 9 , . 2 , 7 , . 2 , 7 , . 2 , 2 , . 2 , 
7, .2,7, .2,9, .2,7, .4,7, .2,4,0, .2, 
. 2, 7,. 2, 7,, 2, 7,. i, 7,. 2, 9,. 2, 7,. i 
, 7 , . | , 7 , . 2 , 12 , . fi , 1b , . 2 , 14 , . 2 , ia , 



,4, .2,4, .4,1-, .M,m , ,i 

, . 2 , 7 , . A , 7 , . 3 , 4 , . 2 . !«, .« , u , .*,*,. 

2,4, .2, 4,. 4,4,. a, a,. a, a, .4, 4. a, 

2, .6,0,0,0 

972 DATA .2,4, .2,4, .2,5, .2,7, .2 

, 7,. a, 5,. a, 4,. a, 2,. a, a,. a, a, .a, a 

, .3,4, .2,4, .2,2, .4,2, .a,4, .2,4, . 

|,s,.a,7,.2,7,.a,s,.i,4,.2,2,.£., 
a,. a, a,. a, a,. s, 4,. 2, 2,. 2,a,. 4,0, 

0,0 

973 DATA .2,4, .2,7, .2,7, .2,7, .£ 

'S,.a,9, .4 J 9,.a,ii J .a,li,.a,9,.a 

.11, .2,12, .2,14, .4, 16,. 2, 4, .2.7, 

*, u, ,r - 
2, a, a 

974 DRTft .3,7, .1,9, .8,7, .2,8, .3 
, 4, . 2, E,. 4, 7,. 2, 8, .2, 4, .4,5, .2, 4 

.2,5,. 4, 7, ,3,7, .1,9, ,3, 7, .2,5,. 
■ "* .4,3, .2,5, .2,4, .2, 



*, . *■ ,0,0,0 

980 DATA .3,7, .1,9, .1,7, .1,5, .2 
,4,. 2,0,. 2,0,. 4, 2 .2,-5, 37-5 .a 
, 4 , . S , , . a , , . 3 , 7 , . 1 , 9 , . 1 , 7 , , i , 5 

,. a, 4,. a, a,. a, 0,.a, 2,. a, -s,. a, -s 

,.S, a,. 2, 2,. 2, -5,. 2, -5,. 2, 4,. 2, 
,.2,0, .2, a, .3,-5, .2, -5, .2, 4, .2,0 
, .2,0, .3,7, .1,9, .1,7, .1,5, .2,4, . 
2,0, .3,0, .2, 2,. 2, -5,. 2, -5,. 4, 0,0 



-3, . 1,-3, 
,-, . j.,*, , 1,4, .3, 1, 
999 DRTfl 0,0 

1000 REM 

1001 REM 

1002 REM pasHRnn 

1003 REM 



.-_ 00 SUB 400: PRINT AT" 2,8;"* 
** Addition ***" 

1011 LET xa>19: LET dx=13: LET y 
8=4: LET dy=14: GO SUB 300 

1012 PRINT AT 4,0; -flnge fanaan mi 

















."Zahnar uber dtn" '"Doppe litr 




it du 
ndan, 
itarn 








r latztenSpalte nit addiart ua 



1030 dim :si5,5) 

1021 FOR nil TO 4: FOR z*2 TO 5 

1022 LET Z»(n,Z)=CHRJ INT I 1B*RN 
D+4S) 

1023 NEXT z 

1024 PRINT AT 6+n,aa;"+" AND N>1 

; - " AND Naijatcnj; next n 

1025 LET Zt (Si ="000000" 

1026 PRJNT AT 11,22;" " ; AT 

1027 LET ine"971: GO SUB 900 
1030 CO SU8 800 

1100 FOR n=6 TD 2 STEP -1 

1101 LET m«. ■'0133456789-' 

1110 LET £=0: FOR ll=l TO S: LET 
*=s+CODE z»(m,n)-48: next m 

1111 LET SS=STR( S: LET U«*"0": 
IF LEN SS=3 THEN LET u*>iIe1>: L 



Basic-Listing »Mathe« (Fortsetzung) 
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Anwendungs-Listing 



1121 IP iCost THEN 00 SUB 50@ : 
50 TO naa 

lip » 8SM 1 

1130 LET y=ia 

B 200 

1133. IF i|OU| THEN GO SUB 500; 

SO TO 1130 

1132 GO SUB 600 

1133 let r*tl,n-l> «U« 
1148 NEXT n 

1150 LET X=23: LET yol4; 00 SUB 

1151 IP i*<>Z«15,l) THEN GO SUE 
500: GO TO 1150 

1153 go sub see 

IP 1 ' 18 

2001 REH 

2002 REM f T1H1 '■" "" ■""•■*" 

3003 REM 

2010 GO SUB 40B; PRINT HT 3,6;"* 
** SubtraKtion *«*" 

2011 LET xa=19: LET dx«13: LET v 
•■■4: LET dU-14: GO SUB 330 

2012 PRINT RT 4,0; "Dit mit ttinu 



end, addiert." 

rd von der 

der batraf="' 
>■ trahiart; 



n. Dit 1 "" 
*r warden, 
r der" ' "DoppeU 
ann mi rd" ,r '- i - 

dit DOPpi 



inie notf- 
Di f farenz 



lit fliscnritbe 

2020 dim zsis.ss 

3021 POR n-1 TO 4: FOR Za2 TO 6 

§023 LET zJ(n,Z)-CHR« INT C10*RN 
+48) : NEXT Z 

3023 IF n-1 THEN LET Z S 1 1 , 11 =CHR 
■ INT IS.RNP+50) 

3024 PRINT AT e>+n,a2;"-" ftNO n>l 
i" " AND naljutri): NEXT n 

2035 LET Z1<ST»"000000" 

3026 PRINT RT 11,22;" " ; RT 

13,33; " = = =i" = *" 
2027 LET me I -972; GO SUB 900 
2030 GO SUB 800 
2100 FOR n=6 TO 3 STEP ~1 
3101 LET ms>"0123466?8£" 
S110 LET 4*0: POR r«=3 TO S: LET 
i-S+COPE Z*7m,n)-46; NEXT m 
3111 LET SB*5TRS 4: IF LEN 4«-l 
THEN LET s*."0"+si 
2112 LET u*=s(fl): IP S»(3)>Z«C1 
,n) THEN LET ul-CHRf (CODE Mill 

JcSTR* (URL (u$+zt(l,n 

."H" THEN GO TO 2123 
._. LET x=31+n: 00 SU 
B 200 

2121 IF ifiout THEN GO SUB 500: 
SO TO 2120 

2122 GO SUB 600 



3113 LET 
» -URL SI,. 

3114 IF Ut-"0 
2120 LET y=12 



. . 



--S-. 



LET X*22+n: 00 SU 
THEN GO SUB 600: 



2130 LET i 
B 300 

2131 IF i 
GO TQ 2131a 

2132 GO SUB 600 
£140 NEXT n 

2150 LET d*=STR( (CODE z«(l,l)-i 
ODE Z«(5,l) J 

2151 LET yalA: LET x *23 i QO SUB 
300 

3153 IF itodt THEN GO 5UB 500; 
00 TO 3181 
3153 GO SUB 600 
2160 GO SUB 700 
2200 RETURN 

3000 REM 

3001 REM 



■im 


REM 


























3811 


LET xa 


















PRINT i 
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"und d 


« 




Nun uerdt 
er zwei ter 




"die Hunderter 
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larmerKn 





ei -flddition'addiert." 

3020 DIM ZSC5,6) 

3021 FOR 2-1 TO 6 

3022 LET Z»(1,Z1 =CHRS INT <10*RN 
5+48) ; NEXT Z 

3023 POR n=2 TO 5 

3024 LET ZS in) ="000000" : NEXT n 

3025 PRINT RT 6,22,Z((1, TO 3) ; " 
*";z«(l,4 TO ) 

3026 PRINT RT 7,23;" " ; RT 

11,22; " "; HT 13,32; ""«" 

303? LET m«="0123466789" 
3033 LET U=«0 

3029 LET meL=973: GO SUB 900 

3030 GO SUB B00 

3100 FOR n=4 TO 6: FOR m =3 TO 1 
STEP -1 

3110 LET p«=.STR« CURL Z*<l,n)*UP. 
L Zj (l,m) +ul : IF LEN Pt°l THEN L 



3111 LET u=UP.L 
2) 

3130 LET u=4+r, 
SUB 200 

3131 IF ;' 



LET P»>P*( 
n: LET x»19+a+n; SO 
t THEN GO SUB 500; 



.. TO 3120 

3123 GO SUB 600 

3133 LET z*(n-3,rn+n-3) =i I 



IF i 



i THEN NEX - 



LET : 



3130 NEXT I.. 
GO TO 3200 

3140 LET y=. 
■SUB 300 

3141 IF iJoSTR* u THEN 00 SUB 5 
00: GO TO 3140 

3142 GO SUB 500 

3143 LET z»Cn-2,lti+n-3) Mi • 

3144 LET u=0 
3150 NEXT n 

3200 FOR n»6 TO 3 STEP -1 

3210 LET s=0; FOR Fl«3 TO 5; LET 
S=s+CODE ZSim.n) -49: NEXT ffi 

3211 LET si=STRS S; LET uts-a" : 
IF LEN E*=3 THEN LET u*=lj(l) ; L 
£T s*=s*ta) 
3220_LET y = 14: LET X=22+n: 00 3U 

HEN GO SUB 500; 



B 20L 
3221 IF 
GO TQ ~ 



-:=^ 



3223 SO SUB 600 
3223 IF u««"0" THEN GO TO 3233 
3330 LET y = 13: LET X*21+n: 00 SU 
B 200 

3231 IF iloul THEN GO 5UB 500; 
GO TO 3330 

3232 GO SUB 600 

3233 LET z*C5,n-l)«u( 
3240 NEXT n 

3350 LET H = STR» (URL uS+URL zl( 

§351 LET gel*: LET x»23: GO SUB 

3252 IF iti)t| THEN 00 SUB 530: 
GO TO 3251 
3353 00 SUB 600 
3260 GO SUB 700 
3300 RETURN 

Basic-Listing »Mathe« (Fortselzung) 
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Anwendungs-Listing 



4000 REM 

4001 REM 

400a REM 

4003 REM 

4-310 GO SUB 4-00: 



PRINT RT 2,8; 



, I mo it. oer ersitu , i hd ia 

"Zahl werden";TfiB 19;"durch 
di«";TflB ig;"ZahL hinter";T 



uLtipt 
rodukt 



";trb g 
";TRS 
■';TRB 9 
■;TRB 9 
■;TRB 9 
",TRB 9 
■■;TRB 9 
■';TRB 9 
";TRB 9 



TAB 9; "pun 
TRB 9; "Gan 
TAB 9; "Mif 



'tiert. I 
'SubtraK 



4013 LET xa=0: LET dx* 
4: LET dy=18: GO SUB 3' 
=0; LET dX-lB: LET ya=. 
5: GO 5UB 300: PRINT R' 

4020 DIM Z*(5> 

4021 FOR n-i TO B: LET 
• INT < £9-1^=67 »RNE>+49 
NEXT n 

4022 PRINT RT 6,2jZtf ' 



4023 LET ro*»"01234587S9" 

41924 LET r$«z*U! 

4025 LET me I =974: GO SUB 900 



4030 



i GO SUB S0 
«-<0<Md LET nuLL=o 
4100 FOR n=l TO 4 
411B LET ql.STRi" INT 

Z«tS) ) 
4111 LET p*,=STRS (URL 
qj) : IF LEN P**i THEN 

41*2 LET 



._. r»=STR« (URL 
;-■ (11+11 fiND n< >A) 
4113 IF n=l RND q|-"e 
.-:u , :.=3: NEXT n 
4128 LET X*B+n: LET y 



URL rl/URL 

Z* (5) #URL 
LET PtK"S" 

f«-UflL P»> 

THEN LET 

O: GO SUB 

q> THEN GO SUB 500: 



4121 IF i 
GO TO 412l 

4122 GO SUB 603 
- 1 THEN GO TO 4140 



4123 IF 
4130 LET X=l 
GO SUB 200 



LET y=3#r 

THEN GO SUB 50 



4131 IF 
0: GO TO Il30 

4132 GO SUB 600 

4133 PRINT RT y +1 , x ; " --■■ 

4140 LET X»iY+l; LET y«3*n+4-niHL 
: SO SUB £00 

4141 IF i*:>P«(2) THEN GO SUB 50 
0: GO TO 414-0 

4142 GO SUB 500 

4143 PRINT RT y +1 ,x J " -" 

4150 LET xsn+1: LET y =3*n +8-nu L L 

! GO SUB 200 

4151 IF itort(l) THEN GO SUB 50 
0: GO TO 4150 

4152 GO SUB 600 

4153 IF n=4 THEN GO TO 4178 
4150 LET x=n+2: GO SUB 200 

i:*l :r ..:■;■:;■;-■: ■'. ";-?:■: GO SJ2 £«) 

0: GO TO 4160 

4162 GO SUB 600 

4170 NEXT n 

4180 LET XalS; LET y=6: GO SUB 2 



f* THEN GO SUB 500 



418S GO SUB 601 

4190 GO SUB 70i 

4200 RETURN 

5000 REM 

5001 REM 

5002 REM BBB 



PRINT AT 2, 10; ' 
"SobaLd Du Oeinen Hi 



Ch die ZeitlRieLt ftine ROLL*." 

"■s«i nicht aurgti-egt, dieser T 
estKann Dir ich LilB Lith ni 

chtscheden. Uiel Erfplfll" 

5020 INPUT "Gebe bir. tf Deintn Na 
men ein. Be=end* die Eingab* Kit 

ENTER."' LINE n«: IF LEN n«>30 
THEN SO TG 5020 

5030 POKE 23672,0: POKE 23673,0: 
POKE 23874,0 

5031 GO SUB 100B 

5032 GO SUB 2000 

5033 GO SU8 3000 

5034 GO SUB 400© 

5040 LET tl=65536*PEEK 23674+256 
*PEEK 23673+PEEK 23672 

5041 LET t2=S5536*PEEK 23674+256 
*PEEK 23673+PEEK 23672 

B042 LET sec=INT (Itl+tS+flBS Ctl 

-12) ) /100) 

5043 LET min-INT (BBC/60): LET S 

ec=sec-60*&iin 

5050 LET p-15-fe+(nin (4) -(min>8) 

50E1 IF p>15 THEN LET p »1B 
5052 IF P <0 THEN LET R =0 
5060 LET Z=INT < 17/3-P/3+ . 5 J 

— TNT RT 2,8; "» 



5073 GO 5U6 400: PRINT 



it 



5071 PSINT "'TRB INT (32-LEN n() 

5072 PRINT '"dim T«iLnahmt an 
n bestatist . " 

5073 LET xa=0: LET dx=32: LET ya 
= 11: LET dy»7: GO SUB 300 

5074 PRINT RT 13,1;TRB A-LEN STR 
* fe;fe;" won "jots;" moaLichen 

FahL*rn" 

5075 PRINT RT 14 , 2 ; ■ 



enotiate Ze 



5077 LET l 

=19: LET dy=3: SO SUB 300: PRINT 

RT 20,11; "Zensur: ";z 
5073 LET mel=9S0; CO SUB 900 
5079 LET t*l! LET t* = " So 
IL ditsa Urkunde ausgedruc K t utf 
den, dann gebe 'D' ein, sonst dr 
UCKS ENTER. ": LET xol9: LET 
y=30: LET ffl*s"D"+CHR* 13: OUER 1 
: SO SU6 200: OUER 
50S0 IF i<B"D" THEN PRINT RT 20, 
19; Z : LPRINT ; COPY : LPRINT 
5090 RETURN 

6000 REM 

6001 REM 

6002 REM | 

6003 REM 



Basic-Listing »Ma(he« (Schlull) 



Varioblen-Dump 

Variablen- 
Dump 

Im Handbuch des Spectrum wird aus- 
fuhrlich beschrieben, wie die einzel- 
nen Variablen aufgebaut sind. Die Fra- 
ge ist nur: Was kann man damit ma- 
chen? 

GroBcomputer drucken, wenn sie einen Fehler machen, ei- 
nen'ausfiihr lit:! ,en Dump aller Variablen. Da isl dann genau auf- 
gelisiet. welcher Wert in dem Moment des Fehlers in jeder Va- 
riablen stent Das ist haufig sehr wichlig zu wissen, denn oft 



1 REM UarilbLin UlUf 
ffl 1934 bg 
Rainir u. Gariina 

a cls : oef fn ooo-peek x+as 

6*PEEK tX + 11 : DEF FN K(X)«INT £P 
EEK X/331: DEF FN I. iX > -PEEK x -FN 
k (x» *33+96; DIM aSClii 

3 LET a=»FN P 13368?): PRINT "B 
•Sinn dsr uariabLtn: ";n PRINT 

: PRINT "NlIIC T¥P Ul*fl" 

4 LET X«FN Ul): LET LuFN lis 
) : PRINT CHR1 li 

5 IF X*3 OR X"B THEN SO TO 22 
5 IF X»4 THEN SO TO 48 

7 IF X«7 THEN SO TO Sffl 

3 IF Xafi OR X«6 THEN SO TO 6ffl 

9 IF PEEK a = 12S THEN STOP 

lfl SO TO 4 

£2 IF X»5 TMEN SO TO 38 

21 LET t««"Inlag*r" 

23 IF PEEK (a+l) OR PEEK Ca+5) 
THEN LET tts"Raal" 

23 PRINT THB lB,t«;TRB IS; YRL 
(CMR( t) 

34. LET * -a +6 

25 SO TO 9 

3lB LET Li*"" 

31 LET 4*4+1: LET PcPEEK lei 

32 IF PU28 THEN LET LS-H + CHR 
if. QO TO 31 

33 LET ■ - 
34. IF PL 

THEN LET . 

35 PRINT 

RL iCHRI L + ... 

35 LET a-a+6; GO TO 9 

43 LET P»FN P la+1) ': PRINT TRB 

la; "Nun .Rrr " ; 

41 LET I. PEEK (a +3): FOR i-1 T 

I: PRINT TRB 18, "DIM"; U ": "IP 

N P £a+2t2*i> : NEXT i 

43 LET a-a+P+3; GO TO 9 

58 LET a=4+16: LET P "FN P(a) 

51 PRINT TRB 10; "FORNEXT Zaile 

52 PRINT TAB 18; "Stat: " , URL < 
CMR| I) : LET a-a+3: GO TO 9 

6B IF X=6 THEN GO TO 64 
61 LET a*tl TO 141.URH (CHR« 
L + "f) 

63 LET p.FN pta+1): PRINT "|"; 
TAB 10; ■'StfilWjTflB 18, at 

63 LET a-a+p+3: SO TO 9 

64 LET P"FN p la + 1) : PRINT "«"; 
TRB 10; "5tr.flc-"j 

65 LET LuPEEK (a+3): FOR i -1 T 
I; PRINT TAB 18; "DIM" ; i ; " ; ";F 
N p (a+3+2*ii : NEXT i 

68 LET asa+P+3: GO TO 9 
99 3RUE *-»•': i; "varlisl": UERI 
FY *"n"; 1; "varList" 

Listing 1. Das Programm Variable n-Dump 



I;TRB IB; t«;TR8 



B*ginn 


der variat 


Ltn: 25278 


Name 
















3 




in teatr 










1 




Z«il«: SB 








a 


Num.Rrr 


DIM1: 3 
DIMS: 4 
DIM3: 5 
















Str.Arr 








r.„. 


ti 





Listing 2. BeispiekAusdruck des Programms Variablen- 
Dump, in dem jeder Variablentyp mindestens einmal vor- 
kommt. 

lautet die Fehlermeldung schlicht "Overflow in Zeile xxx". Hat 
man dann eine Liste aller Variablen, so lalit sich der Fehler (der 
ja oit ganz wo anders steckt) leichter finden. 

Das Programm in Listing 1 produziert genau solcfi einen 
Dump. Wiedas , . hi hf i . . ■ ni.immsuchtabVARSnach 
Variablen. Dann wird der Typ der Variablen bestimmt. Dazu 
mijssenwirdJevorderer-;:'s:riii:-(ii;^^rs^nnyieseinerjeden 
Variablen untersuchen. Die Funktion k(x) liefert diese drei Bits. 



k(x) = 2 einfacher String 

k(xj=3 einiache Variable 

k(x)=4 Zahlen Array 

k(x) = 5 Variable mit langem Namen 

k(x': = ii Siring Array 

k(x) = 7 FOR-NEXT Variable 



Variablentyp laut Handbuch 

Ausgehend von dieser Information wird dann der Variablen- 
typ bestimmt. Die Fcndion iixi iisied die Bvres bis 4 und ad- 
diert 96 (60H) dazu. Das liefert den ASCII-Code des Namens 
(beziehungsweise des ersten Buchstaben des Namens). Da- 
mit kann dann der Name (Zeile 4) und der Wert der Variablen 
(zum Beispiel in Zeile 23) ausgegeoen werden. 

Auderdem ur:-a:^;.;ii;:; : u&l diU- PrograrnrT: noon zwischen 

Integer- und Reai-f = i ifejpunk:) Zahl. Dazu jberpruft es das 
.'orcierste und ::;■>. s hinterste Byte der Zahl. Sindbeide Null, han- 
delt es sich urn eine Integer-Zahl. 

Was wird nun f]ll!-»syKlialBl?Zi.iv:r si einmal Name und Typ der 
Variablen. Dann wird bei Integer und Real der Wert der Varia- 
blen gelistet. Bei einfachen ■ ■ - n ■ i- - ■■■■ ■ i' in Platzgrtlnden 

nurdie ersten 14 Zeichen des Strings gelistet. Bei elnem Array 
wird die Dimensionierung angegeben. Der Array a in Listing 2 
wurde zum Beisp!f;l als mi! i;iv: ,-i(3,4,rii i-ingolcgt. Bei einer 
FOR-NEXT-Variablen wirdZei.rrn indStatomont-Nummerdes 
FOR-NEXT Befehls angegeben. 

Wie wendei mar- nun das Programm an? Entweder von Hand 
mit GOTO 1 oder mit ON ERROR GOTO (Happy-Computer, 
1 1/84, Seite 86). Zum ersten: Man darf den Variablen Dump 
nie mit RUN starten, da RUN alle Variablen loscht 

Zum ON ERROR GOTO: Wenn das ON ERROR GOTO bei 
32500 beginnt, und mit Zeilennummer 1 angelegt wurde, 
dann andert man lediglich die Zeile 9 in: 
9 IF PEEK a=128 THEN RANDOMIZE USR 32590: STOP 

Dann wird der Variablen- Dump, wie bei einem GroBrec finer, 
im Falle ernes Fehlers und bei Programmende erzeugt. 

(R, W. Gerling) 
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Software-Test 



Private Finanzen 
mit dem Spectrum 
sicher verwalten 

Multikont ist ein brandneues deutsches Programm 
fiir den ZX-Spectrum (48 KByte) oder ZX-Spectrum 
Plus. Das Anwendunqsprogramm ist ein rein 
deutsches Softwarepaket, das es auf Kassette 
mit Kassetten- una Microdriveversion sowie Demo- 
programm und exakter Anleitung gibt. Wenn Sie 
also mehr als Ihr Taschengeld kontrollieren woilen, 
lesen Sie bitte weiter. 



Der Test zeigt, daB Multikont 
dank der deutschen Herkunft 
die oftmals anzutreffenden 

Schwierigkeiten bei Anwendungen 
englischer Software umgeht und 
durch sein gelungenes Konzept vie- 
le sinnvofte Anwendungsmoglich- 
keiten fur einen tagtaglichen Ge- 
brauch des Computers im Haushalt 
aufweist. Multikont dient zur Verwal- 
tung von bis zu zehn Grrokonten 
oder Sparbiichem mit dem Spec- 
trum, Fiir die Konten kdnnen Konto- 
nummer, Bank, Inhaber und so wei- 
ter definiert werden. Dann werden 
im taghchen Gebrauch alle vorhan- 
denen Transaktionen als Buchungs- 
satz mit Datum, Buchungstext und 
Betrag fur eines der bis zu zehn Kon- 
ten eingegeben. Der grofie Vorteil 
dieses insgesamt als sehr gelungen 
zu bezeichnenden Programmes 
liegt in den vielfaltigen Optionen, 
die benut2erfreundlich von einem 
Hauptmenii aus durch einfachen Ta- 
stendruck aufgerufen werden kon- 
nen und im Gegensata zu den iibli- 
chen Sammlungen von eirizeinen 
Kontoausziigen eine optimale Uber- 
sicht iiber den privaten Vermd gens- 
stand bieten. 

Leistung uberzeugt 

Die einzelnen Optionen sind: 
— Kontobewegungen eingeben; 
hier werden die einzelnen Bu- 
chungssatze wie auf einem Konto- 
auszug eingegeben. Das Programm 
akzeptiert nur richtige Werte zura 
Beispiel fur Datumserngaben. Als 
Vorteil 1st anzusehen, dafl auch bei 



Transaktionen ciuf Spa vbuc horn em 
Verwendungszweck als Buchungs- 
text gespeichert werden karm. 
— Kontostande abfragen: Ein einfa- 
cherDmekaufTaste 1 bis lOgeniigt 
nach dem Abruf dieser Option, urn 
die letzten 16 Buchungen auf dem 
der Taste entsprechenden Konto ab- 
zurufen. Gleichzeitig wird der ak- 
tuelle Kontostand ausgegeben. Nun 
karm man altemativ alle bisher auf 
diesem Konto eingegebenen Bu- 
chungen abrufen, alle Buchungen 
auf einem angeschlossenen Drucker 
ausdrucken lassen (dies entspricht 
einem Kontoauszug fur alle vorhan- 
denen Buchungen!) oder einen neu- 



Nach der Eingabe eines neuen 
Stichtages wird nach kurzer, ertrag- 
licher Wartezeit ein Kontoauszug 
fiir diesen neuen Stichtag und das 
betreffende Konto ausgegeben. So- 
mit kann man jederzeit den Konto- 
stand auf seinen Konten zu einem 
beliebigen vergangenen Zeitpunkt 
erfahren und ausdrucken lassen. 



Gesamtvermbgensstand 
wird berechnet 



— Obersicht liber alle Kontostande; 
mit dieser Option werden alle vor- 
handenen Konten mit Kontostand 
und der berechnete Gesamtvermo- 
gensstand ausgegeben. Zusatzlich 
erfahrt man, wieviele Buchungen 
bereits gespeichert sind und wie- 
viele das Programm noch verarbei- 
ten kann (maximal 520). Auch hier 



kann ein neuer Stichtag berechnet 
werden. erne Hardcopy auf Drucker 
ist auch moglich, 

— Konio eingeben oder losehen; 
falls Sie ein neues Girokonto/Spar- 
buch eroffnen oder ein altes mit Sal- 
do auflosen, benctigen Sie diese 
Option zur Eingabe der spezifischen 
Daten. 

— Datei abspeichem: Nach jeder 
Eingabe neuer Buchungen mufi die 
aktuelle Datei auf Kassette oder (nur 
bei der Microdriveversion in Ver- 
bmdung mit ZX-Interface 1 und Mi- 
crodrive) Cartridge abgespeicheit 
werden. Dies geschieht mittels ent- 
sprechender Option einschlieBlich 
eines Verifv-Vorgangs. 

— Programm beenden. 

Gutes Konzept 

Wenn das Programm in der An- 
wendung durch seine vielfaltigen, 
hier noch langst nicht alle aufgezahl- 
ten Optionen uberzeugt, so tut es 
; erst recht durch sein allgemei- 
i Konzept. Die gelieferte Softwa- 
" ' s dient namlich nur zur Er- 
stellnng leerer Multikont-Program- 
me mit Datei. Zunachst wird also das 
Programm von der Kassette gela- 
den; eine automatische Speicher- 
routine sichert es dann auf Leerkas- 
sette oder Microdrive cartridge ab 
(und zwar komplett mit ieerer Datei). 
Danach wird das Originalband nicht 
mehr benbtigt (es sei denn, Sie woi- 
len weitere Muliikoni-Programme 
zum Beispiel fiir andere Kalender- 
jahie anlegen). Alle weiteren An- 
wendungen erfolgen nur noch von 
der eigenen Kassette beziehungs- 
weise Cartridge; bei Neueingaben 
muB nur die Datei mit den Bu- 
chungssatzen und nicht das ganze 
Programm neu ab gespeichert wer- 

Positives Testergebnis 

Der Test zeigt, daB diese Software 
aus Deutschland sehr sinnvoll ange- 
wendet werden kann und neben ei- 
nigen bekannten englischen Pro- 
dukten wie Tasword II oder Master- 
file als sehr empfehlenswertes An- 
wendungsprogramm fiir den Spec- 
trum bezeichnet werden kann, Die 
knapp 40 Mark fiir eine Software- 
kassette mit speziellen Microdrive- 
optionen (Ladezeit vom Microdrive 
betragt etwa 20 Sekunden) und eine 
ausfuhrliche deuteche Anleitung 
stellen sicherlich eine gute Investi- 
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Software-Test 



Spectrum + Floppy 
= Profi-System 



Mitte letzten Jahres konnfen viele Spectrum-Besitzer 
aufatmen: Endlich gab es audi fiir diesen Computer 
ein lauffdhiges undaatensicheres Floppy- Laufwerk, 
das die unnotig lange Wartezeit, die beim Laden 
der Programme vom Kassetten recorder entsteht, auf 
ein Minimum verkiirzt. Die mitgelieferte 
Systemsoftware ist zwar gut, aber was bisher 
fehlte, war ein »Diskeften-Doktor«, der alle 
Informationen von der Diskette lies! und 
Anderungen ermbglicht. 



Aus Iauter Wut mochte man am lieb- 
s!en Diskette sami Floppy zum Fen- 
sier hmauswerfen... 

Das braucht man — wie gesagt — 
jetzt nicht mehr. Esreicht, wennman 
Multidisc einladt und die Diskette 
nuntersTichti. 

Dabei erhalt man zuerst allgemei- 
ne Angaben uber die Diskette, wie 
Titel, PaBword, Anzahl der freien 
Sektoren, die erste freie Spur, den 
ersten freien Sektor sowie das For- 
innt der Diskette. 



fessione'J nutzen laBt. 

Doch was niitzt die schbnste Hard- 
ware, wenn die dazugehorende Soft- 
ware fehlt? Und damit iaten sicti die 
Softwaie-Hersteller erst einmal 
schwer. NurwemgeFirraenerkann- 
ten die neuen Chancen fur den 
Spectrum und enr ■.-.■■ ickelten floppy- 
adaguate Anwenderprogramme, 
Eine davon ist Strecker aus Kdin. 
Drei ihrer Programme sollen hier 
naher vorgestellt werden. 

Multidisc hilft 

Ein bosondercr Lockerbissen fiir 
alle Floppy-Besitzer ist ein Pro- 
gramm, das jedem Benutzer eines 
GroBrechners wohlbekannt sein 
diirfte und das jetzt auch fiir den 
Spectrum zu haben ist: der .Disket- 
ten-Doktoi* Multidisc. 



hilft onm^i 'vv!j-i,:ntn Bedienungs- 
fehler zu beseitigen. Wer kennt das 
Problem nichl? Beim Plalzmachen 
auf der Diskette mit ERASE, lbscht 
man durch einen Bedienungsfehler 
ein File, das man eigentlich gar nicht 
Lcschen wollte. Und schwups. ist die 
Arbeit vieler Stunden in Sekunden 
unwiederbringbar entschwunden. 



Wo stent was? 

Als weitere Information zeigt das 
Programm an, in welchem Track 
und Sektor sicli welches File befin- 
det. Wanlt man das entsprechende 
Menii, erfahrt man, um welchen Typ 
es sich bei dem r-'iie har.deli (DATA, 
BASIC Oder CODE), auBerdem die 
Programmlange (bei Basic), die 
Start- und Ladeadresse und die File- 

Durch einen Sektordump, der alle 
Operationen wie das Ansehen, An- 
dern und Schreibcn in vorh rind one 
Sektoren uda:/. ir es rnocurh. Sak 



der sichtbar zu machen. Da auch 
diejenige Files, die durch CAT nicht 
erschemen, sich hnmernoch auf der 
Diskette befinden und bei der Aufli- 
stung genannt werden, diirfte das 
jetet kerne Schwiorigkeilerirnohrbe- 
reiten, Man erkennt die ERASEten 
Files an einem Copyright-Zeichen 
an erster Stelle^des Filenamens. 
Durch einfaches Andern dieses Na- 
mens, wobei selbst diese Operation 
meniigesteuert ist, erscheint das Fi- 
le wieder im Katalog der Diskette. 

Den einzigen Fehler, den man 
;i:ch'. inaction darf, wenn man durch 
ERASE auf der Diskette Plate schafft, 
ist, MOVE zu betaligen, denn dann 
sind wirkhch alle ERASEten Files fur 
immer verloren. Dann nutzt es auch 
nichts mehr. die ausfuhrhche deut- 
sche Bedienungsanleitung, die je- 
dem Programm beigefugt ist, ge- 
nauestens zu lesen oder die sechs 
Mentis dieses Programms, die es so 
bedienungsfre'jndlicb machen, 
nach einer Moglichkeit durchzuslo- 
bem. Die Diskette bleibt, wie ihr Ka- 
talog aussieht: leer. 



Programmerweiterungen 
gewtinschl? 



Die beiden anderen Proqrarr.me, 
die hier vorgestellt werden sollen, 
sind im Grunde Floppy-adaquate 
Erweileningen zu schon bestehen- 
den Programmen: Multitas zum Tas- 
word und Multipas zum Highsoft 
Pascal. Beide laufen ohne die 
Orginal-Programme nicht, bieten 
dafflr eine Vieizahl von neuen An- 
wendungen. So ist es zum Beispiel 
mit Multipas moglich, DOS-Befehle 
aus dem Compiler auizurufen und 
die Include-Funktion auf Diskette 
ausfuhren zu lassen. Beim Multitas 
wurde die Option fur die Blockver- 
schiebung stark verbessert und die 
Funkrion, nach bestimmten Worten 
im Text zu suchen, wesenthch be- 
schleunigt. 

Hinzu kommt no-ch, dafl das Tas- 
worb im: I Ll~c ■:" \ ,i ;: r . ■■"■ licein- 
gedeutschtwird, sogar dieHelpsei- 
ten. Was die Umlaute anbetrifft, so 
liegen sie jetzt da, wo sie liegen sol- 
len: das a auf dem a, das b" auf dem 
o und so weiter (auch im 32-Zeichen- 
Modus). 

Summasummarum, betrachtet 
man diese bedienungs- und anwen- 
derfreundlichen Programme, so ge- 
hen Beta-Disc-Floppy-Besitzer rosi- 
gen Zeiten entgegen... Weitere An- 
wenderprogramme dieser Qualitat 
sind bereits in Vorbereirung. 

(Karina K ray, ■: \ k) 
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Goldene Diskette 



Goldene Diskette fiir 
Lernprogramm auf dem 
Sindair ZX Spectrum 

Im Wettbewerb urn die Goldene Diskette fiir hervor- 
ragende Programmierleistungen kam auch ein Pro- 
gramm fiir den Spectrum zu Ehren. Geschrieben 
wurde das Geoqrafie-Lem prog ram m Geomat von 
dem siebzehnjdnrigen Schuler Olaf Hartwiq r der zu- 
sammen mif tiinf anderen Preistrdgern auf der 
diesjdhrigen Hannover-Messe ausgezeichnet wurde. 



Wie viele Tags i;:Ii getoraucihi uberlegt keinen Moment: »14 Tage 

habe, urn Geomat zu schrei- unci Nachte, dann stand das Pro- 

ben?ii Der 17 Jahie ..die Piei;; grammo. 

trager im Wettbewerb um die Gol- Olaf, Gymnasiast aus Reinhards- 

dene Diskette 1985, Olaf Hartwig, hagen an der Ostsee, zahli zu don 




Einer der Sieger im Wettbewerb um die Goldene Diskette: Olaf Hortwig [17) aus 
Rein hards hagen (Pragramm »Geonmt«j. 

In Vertretung des Bundesministers fiir Forschung und Technologic, Dr. Riesenhuber, 
uberreidif Dr. Donth die Auszeichnung. Auflerdem erhatt Olaf einen Computer der 
Firma Compaq. 



.loohs Jngerulicheri, die fiir hervor- 
ragende Leistungen vom Bundesmi- 
nisterium fiir Forschung und Tech- 
nologie ausgezeichnet worden sind. 
Zusammen miL fiinf weiteren Preis- 
tragem im Alter zwischen 12 und 19 
Jahren erhielt er im Informationszen- 
trum Jugend und Technik der Han- 
nover-Messe einen Preis fur das be- 
ste Lernprogramm — Geomat fiir 
ti.cn Spectrum. 

Rngonricn hatol!os vorsieben ]ah- 
ren. Auf Initiative? ccs Physiidcnrsri- 
amKIausHarms Gymnasium in Kap- 
peln lemte Olaf das Programmie- 
ren. Als ei sich vor zwei Jahren ei- 
nen Taschenrechner fur die Schule 
kaufte, fing er an, in Basic zu pro- 
grammieren. Bald fand er heraus, 
dafl er kleinere. ganz einfaciie Prc- 
gramme an Freaks weiterverkaufen 
und damit sein Taschengeld aufbes- 
sem konnte. Von diesen Einnahmen 
kaufte er sich einige Monate spater 
seinen ersten richtigen Computer, 
ders Sjidf.ir ZX Spectrum. 

Nun stand den Programrnierbe- 
miihungen von Olaf nichts mehr im 
Wege. Er entwickelte iur den Spec- 
trum Arcade und Adventure Games 
■- meist mil 3D-Gra:ik — neuartige 
Tools, Ulihties, Grafik — und Sound- 
Erweiterungen. 

Aber auch bereits kommerzielle 
Anwendungen. Dagibtesbeispiels- 
weise ein Trennungsprogramm, mit 
dem man laut Olaf »die komplizier- 
ten Duden-Trennungsregeln ein fur 
allemal vergessen kann». Oder der 
Finance Manager, der bis zu fiinf 
verschiedene Konten parallel limit 
und einen standigen Uberblick 
fiber das gesamte Guthaben und 
aktuelle Einzelkontenstande gibt. 

Die rund 40 Programme und Er- 
weiterungen stellte der Gymnasiast 
inememKatalogzusammen, melde- 
te ein Gewerbe an und inseriene in 
C om p u to rze itschriften. 



Gewerbliche Nufzung 

Die Taschengeld-Einnahmen stie- 
gen, halten sich aber in Grenzen, 
weil Olaf seine Zeil noch auf vielfalti- 
ge andere Interessen verteilt. Er 
spielt Gitarre, absolviert sein tagli- 
ches Jogging-Programrn, fotogra- 
fiert und surft den Sommer uber auf 
der nahen Ostsee. Gerne hart er 
auch englische Sender uber 
Kurz wellen-Empf ang . 

Und dennoch: im stillen Kammer- 
lein arbeitet er bereits an einem 
Buch fiber kfinstliche Intelligenzfor- 
schung. Olaf Hartwig: »Es geht dar- 
um, wie man den Computem das 
Denken beibrhyen kann." 
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Und mit eaiigera Stolz weist er auf 
seinen zweiten Plate hin. den er im 
Landeswettbewerb Schleswig Hol- 
stein "Jugend forscht« fur ein statisti- 
sches Analyse-Software-Paket er- 
halten hat. Auf dem Spectrum ent- 
wickelte er die Spracheingabe. Vom 
VDI und Landeskultusrninister er- 
hielt er zusatzlich den Sonde rpreis 
fur die originellste und kreativste 
Arbeit. 

Firr die Zukunft hat der vielseitige 
Schuler bereits teste Plane. Im Fruh- 
jahr 1986 Abitur — Leistungsfacher 
in der Schule sind Mathematik und 
Chemie — dann ein Inf ormatikstudi- 
um, Achja, und dann nafurlich Ame- 
rika, ein Aufenthalt im Mutterland 
der Bits und Bytes. (mk) 



Geomot fiir den 
Spectrum 

Das fur den Spectrum ge- 
:-jc li r i e b (■■■ n e P r d i".i rarr i m Geo ma I 
ist ein Geographie-Lempro- 
gramm. dasnichl run Wissfn ver 
mittelt und abfragt, sondem auch 
sel'bsl iahig ist, zu lemen. Zu- 
nechs: emmal dient das insge- 
samt dreiteilige Programm ills 
elektionisches Geocnaphie- 

Loxikon. Ewelne Lander mit 



Der zviaWo ibil bcsidit aus Ci- 
netn Wissenstest, der dritte Tell 
Rfjhliefiiich ennoghchl es, das 
Programm qeograiische Ta:be- 
sliliKit: errata: j su lassen. Dieage 
schieht iiber Suchbaume, die 
zum Teil der Entwicklung von Ex- 
pertensysternen entlehnt sind. 
Wenri das Programm einen Be- 
griffnicherrat, fragt es selbst da- 
nach und nach Kriterien, unter 
denenesdenBegriffbeim nach- 
sten Ablauf in seln Wissen ein- 
bauen und abfragen kann. Das 
Programm ist sehr gut dokumen- 
tiert und nutet die Moyiichkeilen 
des Compuiers voll aus. 



Daten-Verbindungen 

Wenn Sie mehr aus Ihrem Spectrum herausholen 
wollen, mussen Sie wissen, wie dieser an vuekher 
Schnittstelle Daten zur Verfiigung stellt. Als Lohn 
des FleilJes locken neue Verbindungen. 



r Spectrum kann ;n Verbm- 

Udung mit dem Interface 1 auf 
drei Arten mit Peripheriegera- 
ten oder auch mit anderen Compu- 
tern kommunizieren: liber Kasset- 
tenrecorder- RS232- und Neizwerk- 
schnittstclic. Am oinfachsten zu rea- 
lisieren ist die Verbindung iiber die 
RS232-Schnittstelle. Diese erlaubt 
sowohl das Senden wie auch das 
Empfangen von Daten. AuBerdem 
ist die serielle Schnittstelle fast ge- 
normt und die dafur notige Software- 
anpassung kann auch ein Anfanger 
in Basic erstellen. Schwieriger ist 
die ganse Sache mit dem Network- 
anschlufi. Der Datentransfer erfolgt 
hier mit 16 KBaud am schneltsten, 
aber wesentlich komplizierter. Oh- 
ne Maschinensprachekenntnisse ist 
mch Is zu rnachen. 

Nur fiir echte Freaks ist das Kas- 
settemnterface zur Datenubertra- 
gung zu empfehlen. Sowohl von der 
Hardware, wie auch der Software 
mii Ben sehr gute Kenntnisse vorlie- 
gen. 

V.24=seriell 

Da viele Computer iiber eine se- 
rielle Schnittsielle verftigen, ist das 
Ubertragen von Daten und Pro- 
grammen mit dem seriellen Aus- 
gang des Interface lhaufiganwend- 
bar. Nach dem .Slarten des Spec- 



trum ist bei dem Interface I immer 

die Ubertra ■;:■■: :hv,. o :il 

von 9600 Baud eingestellt. 
__ Insgesamt stehen altemativ neun 
(jbertragungsgeschwindigkeiten zur 
VeriiUTung 60, 110, 300, 600, 1200, 
2400, 4800, 9600 und 19200 Baud. Da- 
von abweichende Baudraten wer- 
den in der Praxis nur sellen verwen- 
det. konnen aber uber Iv'osc Inn en- 
code pro gramme erzeugt werden. 
Wahli man aus dem Basic heraus ei- 
ne Baudrale die z ■■/■.■■ ischen den nor- 
malen Werten lieg.. so reduziertdas 
Betriebssystem des Spectrum den 
Wert auf den nachslen darunlerlie- 
genden. Aus FORMAT "t";150 wird 
110 Baud. Da zwischen den Bytes 
kurze Pausen notig sind, ist die lat- 
sachliche Geschwindigkeit unter 
der ariuogebenen. 

Mit der Befehlseguenz »FOR- 
MAT"b";3Q0« setet man den "b' 1 
Mode, sowie die Baudrale. Durch 
die Gcratekenming "b" oder "t" 
wird zwischen dem 7 Bit-Textrnode 
oder dem 8 Bit-Dale nmode gewahlt. 

Die haufigsie Anv;endung findet 
der "t'-Mode zum Ansteuern von 
Druckem. Dieser 7 Bit-Mode igno- 
riert alle Steuerzeichen auBer CR, 
(aus dem CR und LF wird) der den 
Zeilenvorschub bewirkt. Grafikzei- 
chen setet er in Frageaeichen urn 
und for die Basic-Tokens (den 
Schlusselworten auf den lasten) 



werden die entsprechende Worte 
ausgegeben. Der "t"Mode erleich- 
ierl es, Programrnlistings des Spec- 
trum auf andere Computer zu uber- 
tragen und dort zu bearbeiten. 
Dazu bendtigt man eine Ubertra- 
gungssofrware. wie das Programm 
.MOVE IT* fur den IBM-PC oder 
»Async« fiir den Apricot PC. Die 
tJbertragung erfolgt mil dem Kom- 
mando LL1ST. Das komplette Prc- 
grammhsring laBt sich anschlieBend 
mit einem Text vera rbeitungspro- 
gramm bearbeiien. Ein Listing wie- 
der in den Spectrum zu ubertragen 
und ablaufen zu lassen ist nicht mo g- 
lich, da die Systemvariablen und 
Ablauf variablen fehlen. Aber Li- 
stings, die ja auf eine Zeilenbreite 
von 32 Zeichen begrenzt sind, kon- 
nen im 80-Zeichen-Mode einer Text- 
verarbeiiung sehr gut mit Kommen- 
taren versehen und ausgedruckt 
werden. Das Senden von Dateien 
erfolgt nach dem gleichen Prinzip 
mit»PRINT#3;a$«. 

»b« gleich Bindr 

Um Datenblocke, Speicherbfocke 
oder Programme zu senden oder zu 
empfangen. verwendet man den 
"b' : Mode. Damit iiberlragt man 
Werte zischen und 235. Das er- 
mdglicht es. Programme ablauffahig 



Werte lassen sich einfach ermitteln. 
»PR1NT PEEK 23641 + 256*PEEK 
23642™ ergibt den Wert der System- 
variablen E LINE, derEndadresse 

des Prograrnrns und der Variablen, 
Der Anfang der Systemvariablen 
liegt immer bei 33SS2. Von dem aus 
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der Variablen E_LINE ermittelten 
Wert zieht man 23553 ab und hat die 
Lange des Progiamms. Um das Pro- 
grarnm zu iibertragen, offnet man 
den Kanal 3 mit dem Befehl 
»OPEN#3;"b'l, Nun setzt man den 
empfangenden Computer in den 
WAIT-Mode, also empfangsbereit, 
und gibt »SAVE*"b"CODE 23552. 
(Lange der, f J roaramms> ein. 
Der Programmname wird vom 
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n dieses Pro- 
gramm, geht der Programmlauf 
beim folgenden Befehl weiter, das 
Programm ist selbsistartend! Zu be- 
achten 1st dabei eines: Zwisctien 
RAMTOP (PRINT PEEK 23730 + 
256*PEEK 23731) und STK_END 
(PRINT PEEK 23653 + 256*PEEK 
23S54) miissen mindestens 11 Byte 
frei sein fiir die temporaren Varia- 
blen. Diese enthatten die Start- 
adresse, die Kennung fur 7 oder 8 
Bit-Mode, Ein- und Ausgabeadresse 
sowie die Zahl der belegten Bytes. 
Das Betriebssystem gestaitet es, bis 
zu 16 Kanale gleichzeitig zu offnen. 
Wobei die Kanale bis 3 immer vom 
System belegt sind. Der Druckerka- 
nal kann ohne Probleme benutzt 
werden, Auf diesen sprechen auch 
die Druckbefehle LLIST und 
LPRINT an. Hilfreich ist das offnen 
von zwei Kanalen fiir das Aussenden 
von Steuercodes fur den Drucker 
und dem Senden von druckbaren 
Zeichen. Fiir das erstere werden 8 
Bit bendtigt und fiir das zweite 7 Bit. 
Auch beim Datensenden kann das 
notig sein, da das Async-Programm 
fur die Apricots zum Beispiel Cha- 
racter 25 als Endeerkennung benb- 
tigt. 

Manche Computer senden auch 
nach der Enderkennung noch Da- 
ten. Das kann ein Grund fiir Fehler 
bei der Datenubertragung sein. 
Empfehlenswert ist es dann, eine 
medrigere Baudrate zu wahlen, um 
die Fehlerquote zu senken. Bei der 
Ube:;:<r..uLir:ir'jf;srhwind!gkc!f. von 
19200 Baud ist die theoretische Bii- 
lange 182,3 TaJde (1 Takt = 1/ 

,■./':)•■;.: ;■,:■;■ i ;!:■!. I:.,: LilsaoUlidie 

Zeit ist aber 177 Taktzyklen. Das be- 
deutet emen Fehler von zirka 3 Pre- 
sent. Je kleiner die Baudrate ist, de- 
sto geringer ist auch der Fehler. Lei- 
der ist es dennoch oftmals erforder- 
lich, eine Baudstufe niedriger als 
r-ingnnoinrnoi! ym wahlen. 

RS232-Verkabelung 



Senden benutzt, zwei beim Ernp- 
fang, einer als Masseleitung und 
der letzte fiir die Veisoigunysspan- 
nung. Die erste Leitung wird zum 
Senden benutzt und heiBl RXDATA 
Oder RECEIVE DATA. Die zweite 
Leitung nennt man DTR oder DATA 
TERMINAL READY, sie wild vom 
empfangenden Gerat benutzt, das 
hier mitteilt, ob es bereit ist Daten 
zu empfangen. Das Senden eines 
Byte geht folgenderrnaBen vor sich: 
DTR wild auf Highpegel gelegt und 
erst dann das Datenbyte ubertra- 
gen. Fiir jedes Zeichen werden 11 
Bits gesendet: Ein SLartbit, acht Da- 
tenbits und zwei Stopbits. Die Be- 
zeichnung der dritten Verbindung 
lautet TXDATA oder TRANSMIT DA- 
TA. Das Gegenstuck zur zweiten Lei- 
tung nennt sich CTS oder CLEAR 
TO SEND. Das Empfangen lauft wie 
i'olai ab: In dor Betriobssystemvina- 
ble SER FL wird gepriift, ob der 
Spectrum empfangsbereit ist. Das 
wird durch die Abfrage auf un- 
gleich Null gemacht. AnschlieBend 
selzt er CTS auf Highpegel. wartet 
auf das Startbit der TXDATA-Lei- 
tung, liefit anschlieBenddie acht Da- 
tenbits und speichert dieses Byte 
ab, Nun setzt er CTS auf Lowpegel. 
Jetzt diirfte kein Zeichen mehr ge- 
sendet werden, einige Computer 
iun das leider doch. Deshalb wird 
TXDATA weiterhin iiberpruft. 
Kommt ein weiteres Zeichen, erfolgt 
wieder: Lesen der Datenbits und 
speichem in das hbherwertige Byte 
von SER FL, das m^de: -e.:i.:e ■:--■] 
auf 1 gesetzt. 

Ins Netz gegangen 

Das lokale Netzwerk stellt eine 
schnelle und unkomplizierte Mog- 
hchkeit dar, zwischen Spectrum 
oder/und Sinclair QL einen Daten- 
transfer durchzufuhren. Bis zu 64 
Sinclair Computer konnen zu einem 
Netzwerk zusammengeschlossen 
werden. Schaltet man den Spectrum 
(mit Interface 1) ein, so setzt das Be- 
triebssystem des Interface 1 die Sta- 
tionsnummer auf 1. Werden nicht 
mehr als zwei Gerate verbunden, 
braucht die Stations nummer nicht 
geandert werden. Bei mehr als zwei 
Computern konnen Daten an eine zu 
bestimmende Station gesendetwer- 
den, die auch nur diese empfangen 
kann. Die Station snummem gehen 
von 1 bis 64. Die Nummer dient 
zum Senden an alie Computer im 
Netz. Jeder Computer, der auf Emp- 
fang geschaltet isl, ernpfangt diese 
Daten. Das Andem der Siations- 
numrner erfolgl mit dem FORMA'l 
Befehl. .FORMAT "rf',2. setzt die 



Stationsnummer 2. Ein Computer 
darf auch mehrere Stationsnum- 
mern haben, etwa eine zum Senden 
von Daten und eine zum Empfangen 
ven Programmer 

Das Ubertragen geht mit den ubii- 
chen Befehlen vor sich: »SAVE*"n" 
,2'. ubertragt an Station 2 ein Pro- 
gramm, »LOAD*"n",0« ladt das Pro- 
gramm. Programmnamen sind nicht 
notwendig. Eine Sendung an alle 
Computer im Netzwerk, Empfan- 
gerstation 0, ubertragt der Spec- 
trum zirka vier mal langsamer als ei- 
ne direkt adressierte Sendung. Er 
wartet auch nicht auf eine Bereit-zu- 
Empfangen-Mitteilung, sondem 
sendet einfach die Daten. Wer zu 
diesem Zeitpunkt noch nicht bereit 
war, geht leider leer aus. Die ub- 
lichen Anhangsel wie LINE, 
SCREENS, DATA und CODE konnen 
weiterhin verwendet werden. 

Mit vier Befehlen 
dies im Griff 

Urn Daten direkt zu Senden und zu 
Empfangen stehen die Befehle 
OPEN*, INPUT*, INKEY$# und 
CLOSE* zur Verfugung. 

»OPEN#4;"n";2« offnet den Kanal 
4 und weist ihn dem Spectrum mit 
Stationsnummer 2 zu, Station 2 muB 
auch einen Kanal fur die Eingabe 
offnen, *OPEN*5;"n";k Um Daten 
zu Senden verwendet man die Kom- 
mandosPRINT# und L1ST#. LIST* 
ubertragt das Programmlisting, 
PRINT* ubertragt Zeichen und Va- 
riable Ablauffahigist ein ubertrage- 
nes Programm natiirlich nur auf ei- 
nem Spectrum, der Sinclair QL ver- 
wendet Superbasic. Diese Program- 
miersprache ist dem Basic-Dialekt 
des Spectrum zwar sehr ahnlich, 
aber Programme laufen leider nicht 
ab, Benutzt man zum Einlesen IN- 
KEY$ # , so muB man auf eine Beson- 
derheit achten: Der Spectrum gibt, 
wenn kein Zeichen von der Sende- 
station kommt, ein CH$(0) aus, Die- 
ses Problem laBt sich sehr einfach 
umgehen, indem man auf CHR$(0) 
abfragt und nur ungleich CHR$(0) 
anzeigen laBt, 

Zwei Lettungen reichen 

Das Netzwerk arbeitet nur mit 
zwei Leitungen. Eine Leitung davon 
ist Masse, die andere ist die Signal- 
leitung; aktiv liegt sie auf + 6 Volt, in- 
axiiv .juf Masse 

Benutzt man das Netzwerk, so sen- 
det es als erstes einen Startimpuls 
und die Stationsnummer aus. Diese 
Daten werden langsamer iibertra- 
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gen. als die Ubemuttlung e 
vor sich geht. Die Ubertragung der 
Stationsnummer geht in umgekehr- 
ter Reihenfolge vor sich, also die Bit 
7 zuersi, Bit sum SchluE Jedes Bit 
wird iiberpruft, ob es vora Netzwerk 
angenommen wurde. 1st das Netz- 
werk gerade belegt, so wird der 
ganze Vorgang wiederholt. Nach- 
dem diese Vorabinfomiationen ge- 
sendet und angenommen wurden, 
mtiB der Vorspann ausgesandt wer- 
den. Der Vorsparm enthalt: 

Vorspann-lnhalt 

Die Nummer der Gegenstation, 
die eigene Slationsnumrner, eine 
Biocknummer (0-65S35), Ende-der- 
Datei Kennimg (1 = Daten, » En- 
de), Lange des Puffers (255 beim 
Senden, beim Empfang), Priifbyte 
der Daten (8-Bit Quersurnme). Priif- 
byte des Vorspannes (8-Bit Quer- 
surnme der 7 Vorspannbyies), 
Nur beim Empfangen: 
Speicheradresse des letzten Bytes 
aus dem Puffer, Anzahl der verblei- 
bondon Bytes im Speicher. 

Das Aussenden des Vorspannes 
erledigt die OUTPAK-Routine in fol- 
genaer Abfolge: 
ein aktiver Vorimpuls, 
eiri inaktivei Pl;;rtimpuls, 
ein aktiver odei maktiver Impuls 
fur jedes Bit, 
em aktiver Stopimpuls, 
Ne^werk inakiiv schalten. 

1st das Aussenden beendet, priift 
die Routine den Inhall der Sysiemva- 
riabien NCIRIS, die Stationsnummer 
des Empfangers. Steal hier als Emp- 
fanger 0, wartet das System nicht, 
sondem sendet sofort weiter. An- 
sonsten sendet die OUTPAK- 
Routine der gezielt angesproche- 
nen Station den Wert 1 als Quitting. 
Kommt innerhalb einer bestimmten 
Zeit nicht die Quiltung vender Emp- 
3 sendet der Spec- 
. die Belegungsprufung und 
den Vorsparm noch einmal und war- 
tet wieder auf die Antwort. Ange- 
zeigl wird das durch die gleichblei- 
bende Bildrandfarbe. 

Viele Prufungen 

Wenn der Vorspann empfangen 
wurde, laufen im System umfaugrei- 
che Prufungen ab: 1st der Vorspann 
acht Byte tang? 1st die Quersurnme 
der ersten sieben Bytes richtig (Ach- 
tes Byte)? 1st die Biocknummer 
(NTNUMB) richtig? Wenn an Station 
gesendet wurde muB NTDEST 
und NCIRIS gleich sein. wenn nicht 
dann NTDEST u.-.d NCSELE 1st die 
Nummer der Sendestahon nchtig 



(also NTSRCE und NCIRIS gleich)? 
Bei einer Sendung an alle Netz- 
wcrktoilnehmer erfolgt keine Riick- 
meldung. Wird an eine bestimmte 
Station gesendet, muB eine Mel- 
dunc erlolgen. 

Kommt die richlige Antwort, iiber- 
tragt die OUTPAK-Routine den er- 
sten Datenblock. Das E-Regisie: 
enthalt die Menge der Bytes (NCB), 
das HL-Register die Anfangsadres- 
se des Puffers. 

Die Datenbldcke werden von 
0-6S535 numeriert. Ofmet man einen 
Netzwerkkanal, setzt das den ersten 
Block auf 0. Der letzte Block enthalt 
nur die Ende-der-Datei-Kennung. 
Versuchen mehrere Computer sich 
gleichzeitig im Netzwerk anzumel- 
den, so wird der mil der niedrigeren 
Stationsnummer bevorzugt. 

Zeit im Griff 

Hier einige technische Daten 
fiber den Zeitablauf beim Netzwerk: 
Bei der Vorbelegung pruft der 
Spectrum etwa 10500 Takte (3 ids) 
des Netzwerks auf aktive Impulse. 
Wird keiner festgestellt, gilt das 
Netzwerk als nicht belegt. Der Vor- 
impuls im Belegungsversuch starlet 
22 Takte nach der Freipriifung. Die- 
ser dauert 181 Takte, genau wie die 
Ubenraqung der 8 Bits der Stations- 
nummer. Nach 136 Takten werden 
die Impulse zur Uberprlifung zu- 
riickgelesen. Nun gilt das Netzwerk 
als belegt. Nach einer Zeit von 271 
Takten werden die acht Bytes des 
Vorspannes ubertragen. Das Ober- 
tragen des Vorspannes lauft nach 
folgenden Muster ab: 98 Takte dau- 
ert der Vorimpuls, 40 Takte fur den 
Startimpuls, 40 Takte far jedes der 
actil Daienbils, I'lU lakie dauert der 
Sicpimouls. zirka alle 7000 Zyklen (2 
ins) priif: der Spectrum den Freizu- 
stand des Netzwerkes. Anschlie- 
Bend uniersucht er es alle SB Takte 
auf einen aktiven Impuls. So wird ein 
Vorimpuls bei emem Belegungsver- 
such immer in seinem ersten Drittel 
erkannt. AnschlieBend xuft er, ura zu 
empfangen, die INPAK-Routine auf. 
Sie empfangt diese acht Byte des 
Vorspanns. Dot h!n);:;i.;ri :nn erfokit in 
der inaktiven Phase von 271 Takten 
zwischen Belegungsanfoideiung 
und Vorspann. AnschlieBend cir.ei- 
sucht das System alle 36 Taktzyklen 
des Netzwerks, um einen Vorimpuls 
zu finden. Nun synchronisiert sich 
die Hardware auf die abfallende 
Flanke des Signals beim Beginn des 
ersten Slart impulses. Die Unsicher- 
heit bei der Flanke nerkennung wird 
dadurch auf ein Minimum reduziert 



Der rkhtige Takt 

Die Datenbits werden jetzt mit 40 
Takten pro Bit eingelesen. Dabei ist 
erne hardwarebedingte Abwei- 
chung von 5 Prozent bei der Taktfre- 
quenz mbglich, nimmt aber keinen 
negativen EinfluB auf die Ubertra- 
gung. Wenn alle acht Vorsparmby- 
tes empfangen wurden, miissen sie 
gepriift werden. Ist es eine Sendung 
an Station wird keine Quittung er- 
teilt. Innerhalb der nachsten 600 
Takte wird der Spectrum dann den 
Datenblock empfangen. 1st die Sen- 
dung an eine Station adressiert, muB 
die Empfangsbestatigung innerhalb 
von 9000 Takten erfolgen. Anson- 
sten wiederholt der Sendecomputer 
den Block. Enthalt ein Block ein By- 
te, dauert das Senden 544 Takte, bei 
255 Byte sind es etwa 128000 Takte 
(37 ms). 

Daten nur fur Recorder 

Die Kassettenrecorderschnittstel- 
le zur Datenkommunikation zu be- 
nutaen, ist nicht zu empfehlen, da 
sich einige Fehler einschleichen 
konnen. Wird ein Programm auf 
Kassette geSAVEt, so erfolgt zuerst 
ein Signal von rundSSekunden. Der 
Spectrum sendet keine Daten. son- 
dem gibt der Aumahmeautomatik 
Zeit, sich auf die richtige Lautstarke 
einzupegeln. AnschlieBend iiber- 
tragt er den Vorspann oder Header. 
Dieser enthalt den Programmna- 
men. Es werden immer die vollen 10 
Byte des Namens ubertragen. Das 
nachste Byte enthalt eine Kennung, 
die besagt ob es sich um ein Pro- 
gramm, einen Screen (also Bild- 
schirminhalt), einen Datenblock 
oder einen DATA-Bereich handelt. 
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AnschlieBend erfolgt die Ubertra- 
gung der Felder fur die Adresse, ab 
der gespeichert wurde und die Lan- 
ge des Programmes und ab welcher 
Zeilennummer das Programm 
selbst starten soli. Stent in diesem 
Feld 0, statist das Programm nach 
dem Einlesen in den Rechner nicht 
selbst. Bei einer Programmubertra- 
gung steht die Adresse, ab der das 
Programm eingelesen wird, fest. 
Wird ein Bildschirminhalt mit der 
Zusatzmnktion SCREENS gespei- 
chert, so stehen nicht nur Anfang, 
sondem auch die Lange fest (6912 
Byte => 24*256 Byte fur den 
Graphik- und 768 Byte fur den Farb- 
speicher). Ansonslen miissen diese 
Werte ermittelt werden. Die Uber- 
tragung erfolgt Bitweise. Wird der 
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Bitwert gesendet, entspricht die 
Ubertragungszeit (der Impuls) 855 
Taktzyklen, nntlirj- dm Bit Werrig- 
keit 1, so dauert der Impuls I710-Zy- 
klen, also genau die doppelte Zeil. 
Nach dem b^idevorcana ernes 
Blocks wird cm Kontrollbyte liber- 
tragen, daB auf einer OR-Abfrage 
basiert. Dieses Kontrollbyte war 
beim ZX81 verantworllich, wenn der 
Rechner das ganze Programrn geie- 
sen und dann geldscht hatha Er fuhr- 
te diese Abfrage einmal durch, und 



bei negativen Ergebnis loschte er 
den gesamten Speicherbereich 
durch Restart 0. 

Der Spectrum macht das nicht, 
das heiSt ein Programm, daB beim 
verifizieren eine Fehlermeldung 
verursacht hat, kann trolzdem wie- 
der eingelesen werden. Ob as ab- 
lauffahig ist, muS sich dann erst zei- 
gen. 

Die Recorderschnittstelle ist 
durch die Hardware nur zum Sen- 
den und Empfangen von ganzen 



Blacken geeignet und nicht zum 
Handshakebetrieb, wie die RS232- 
oder Netzwerkschnittstell& 

Dadurch, daB die Slromabgabe 
bei zirka 0.2 Volt und die Stromauf- 
nahme bei zirka i Volt liegt, miiBte 
man mit zusatzlieher Hardware ar- 
beiten. DieToleranzliegtbeierwalO 
Prozent. Nach spatestens 1100 Zy- 
klen muB der Spectrum die nachste 
Flatiko ompfangen, worm es zu kei- 
ce:n Fehi-si konimen soil. 

(Horst Brandl) 



Microdrive-Express 

Mbchte man die Ladezeiten beim Commodore- 
Laufwerk verkiirzen, ist dies nur mit reichlichem 
(inanziellen Aufwand zu errekhen. Bei den 
Spectrum-Mkrodrives bekommt man diese 
Mbglkhkeit frei Haus und schiitzt sich auch nach 
gegen Datenverlust. 

u 



Weiterhin ist es natiirlich sehr an- 
genehm, zwei Laufwerke zu haben. 
wenn man an praktische Arbeit wie 
Kopieren denkt. Fur jeweils weitere 
200 Mark lassen sich bis zu insge- 
samt 8 Laufwerke an den Spectrum 
anschlieSen, was zu einem Zu griff 
te mhren wiirde. 
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:>r dieSinclair-Microdrivesist 

J vie! noschrieben warden, und 
nicht alles davon war iiberma- 
Big positiv. Diesem Speichermedi- 
um haftet der Ruf an, Daten und Pro- 
gramme mdge man ihnen besser 
nicht anvertrauen, da es leicht zum 
Verlust fiihren kdnne. Sicher wird 
diese Meinung nicht von alien Be- 
nutzem geteilt und bei mir kommt 
nach einjahriger intensiver Benui- 
zung der Microdrives ein wenig der 
Verdacht auf, daB dieses Geriicht 
von Fall zu Fall ebenso uberprtift 
werden sollte, wie die »Tatsache* r 
rid 3 Kfisc ilijinn mache. 

Auch die Sinclair berniiht sich, das 
ladierie Image der Microdrives ein 
wenig aufzupolieren. So verkiindet 



man, daB milt!e:'«veile die VerlaBig- 
!:■ a! ■ I. ■ iv. ■' tog] ■ . a-- w 1 ■ ist, ■ isB 
bei bis 50000-fachem Zugnff kein 
Da:enveilust beobachtet wurde. 

Wie irnmer die Sache aussieht, im 
Prinzip sind die Microdrives eine 
proiswerte Alternative zu Disketten- 
stationen. Mittlerweile erhalt man 
das Interface 1 und zwei Laufwerke 
fiir rund 600 Mark, was etwa dem 
Preis eines Commodore-Laufwer- 
:<os entspricht. Die Speicherkapazi- 
tat betragt in beiden Fallen etwa 170 
KByte, jedoch erhalt man bei 1 Sin- 
clair eine RSa32-3.:hM.:t3ieliiko£le:i- 
los dazu. Dariiber hmaus sind die 
Lade- und Schreibzeiten bei Micro- 
drives etwa IQmal kurzer als beim 
C omrnodore-La iifwerk . 
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stisch gesenkt worden. Damit 
kommt eine denkbar einfache Mdg- 
lichkeit zum Tragen, die Zugriffszeit 
auf die Microdrives zu verkiirzen 
und dabei auch noch etwas fur die 
Datensicherheit zu tun. Einziger 
Nachteil dieses »Microdrive-Ex- 
pess« ist, da£ die auf diese Art gesi- 
cherlenProgrammeundDatenetwa 
doppelt so viel Platz auf der Kassette 
in Anspruch nehmen. 

Da man aber in der Regel die Ka- 
pazitat gar nichi voll ausnutzt und die 
Methode nur fiir die am haufigsten 
benutzten Files beziehungsweise 
wichtigsten Programme anwenrien 
muB, ist dies wohl kaum ein entschei- 
de:idr:i Nachteil. 

Der Trick ist ganz einfach, man si- 
chert das entsprechende Pro- 
gramm einfach zweimal (oder noch 
haufiger) auf das Cartridge. Nun 
laflt der Spectrum das nicht so ein- 
fach zu, nach dem ersten Sichern er- 
scheint die Meldung "Writing to a 
read filet. Dies laBt sich jedoch ein- 
fach umgehen. In der Speicherstel- 
le 2379! steht erne Systemvaiiable, 
die die Anzahl der auf Microdrive 
durcrigeiL n_"-:. :L , _e:i mgibl, also 
in der Regel eine 1. Geben wir vor 
dem Sichern ein »POKE 23791, 3«, so 
werden tatsachlich zwei Kopien an- 
gefertigt. Natiirlich konnen auch 
n.=ch Belieben drei, vier odermehr 
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KODLB 

Ladt 





griffszeit ir. c.ot Tut 'ianz etheblich, 




weiterhin sind die Daten mehrmals 


3x run und U 






Verlust besser geschiitzt. 


Cartridge 


(PC. Bosetti) 
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PEEKs und POKEs 

Tips, die das Leben eines Prog ram mierers erleich- 
tem helfen und (leider) nicht im Handbuch stehen. 



Umgehen der Meldung »Srart tape, 
then press anny key.« 100QFORa = l 
TO S: PRINT a: SAVE n$(a): PAUSE 
150: POKE 23736,181: NEXT a 
Lislsdwti: 

Wenn das Basicprogramra als Co- 
de abgespeichert wurde. dann gibt 
man als erste Zeile ein: 1 LOAD 
""CODE 240Q0:POX"E 23635 133. PO 
KE 23636,94: LIST 

fehlerruckspfungodreise dndern: »POKE 
23614,100^ in die erste Programmzei- 
le bringen. Das Programm muB mit 
"LIMP" gesaved werden, 
Ea s k-Pro grn mm stn rla d resse : 

PRINT PEEK 23635+256*PEEK 
23636 (normalerweise 237SS) 
Erste BosiaeiJe uui Null setien: 
LET a=PEEK 23637+ 256*PEEK 
■ ..,:| ■ i :i: .■■!'. >KEa + I,0 
POKE 23756,x: Seizt erste Zeile im 
Programm auf Zeilennummer x. 
Werm x=0, kann nicht mehr (so 
leicht) geloscht werden. Der POKE- 
Befehl kann natiirlich dazu benutzt 
. werden, das Ganze riickgangig zu 
machen. 
RAMTOP: 

PRINT PEEK 23730 + 256*PEEK 
23731 (maximal: 32767 bei 16 KByte 
beziehungsweise 6553S bei 48 
KByte) 



PRINT. "nach";l J EZK 23730 : 356* 
PEEK23731-PF 
336S4:"Bytes" 

Es geht auch einfacher: PRINT 
63335 USR 7962 



POKE 236|09, x=Lange des To- 



POKE 23608, x-verandert die 
Lange des Wamtones, wenn Pro- 
grammzeile langer als Bildschirm- 

POKE 23562, x * Beschleunigung 
in % sec, x= 5 normale Geschwin- 

Repent-Worteieit: Wartezeit, bis Re- 
peatfunknon einsetzt POKE 23561, 
x = Zeit; beim Einschallen ist x=35 
Ziiitivihlor nnf Null setzen: 

POKE 23672,0:FOKH 23673,0:PO 
KE 23674,0 
Automatischer Scroll: 

POKE23692,x(x> l)oderRando- 



:ii./t! US: ; -; 333C ode: Random l^ USR 
3582 Oder Zeile INPUT INKEY$ ein- 

EditietiaNe Attribute dndern: Farbe, 
Krinht, und so weiter. 
POKE 23624, BIN XXXXXXXX 
X = I cder probieren 

— schwarz 
11111111 - hell weiB 

Urn 256 kleinere Anfangsadresse des Zei- 
chensatas im ROM: 
POKE 23606.x 

Anderung des Zekhensohes durch Ab- 
Iegen im RAW duvci POKE 33336 
Adresse im RAM-256: dann wie 
UDG verfahren, jedoch vorab CLE- 
AR... (Adresse -1) 

Hier wjid als Beispiel meistens 
POKE 23606,8 angegeben. Das soil 
einen dem russischen ahnlichen 
Zeichensatz ergeben. 

Folgendes Programm seigt die 
Veranderung deutlich: 

1 FOR b = TO 235: POKY; 23-306 b 

2 FOR n = 32 TO 255: PRINT CHRS 
n;:NEXTn:PRINTAT21,Q;"23606,",b: 
PAUSE !1C: CLS: NEXT b: STOP 
POKE 23607,10 Zeichensatz wird 
Punktehauten 

POKE 23607,60: Zeichensatz wird 
wied-sr sichtbai 



Fertige Routinen im ROM 



RANDOMl/.nUSR 3435 = CLS 
RANDOMIZE USk 3756 = COPY 
RANDOMIZE USR 4335 - NEW 
RANDOMIZE USR 6137 = LIST (ab 

Zeile 0) 
RANDOMIZE USR 7406 = STOP 
RANDOMIZE USR 3438 = Loscht 
Zeilen 23 

und 24 

PRINT # schreibt auf der 

l;"xyz" Editiorzcile 

# 2;"xyz" Schreibt auf dem 

Bildschirm oben 

# 3;"xyz" Schreibt auf dem 

Drucker 
LIST # 3 listet auf dem Dnieper 
Input # macht einen INPUT im 
2;x oberen Bildschirmbe- 



H- DISPLAY 

piatze :16384 - 22527 
ATTRIBUTE 
:22S28 - 23297 - 
768 Bytes (24*32) 

Beispiel: POKE 22528,x :x=207 
ergibt ein blinkendes 
helles gelbes Zeichen 
auf blauem Grund 
x = INK * 8 + PAPER 
+ 6 (BRIGHT) 
+ 128 (FLASH) 

Speicher- Bildzahler 

pla:?. 

wird SOmal in der 
Sekunde urn 2 erhoht 

Beispiel: 10 POKE 23670,0: POKE 
23673,0;POKE 23674,0 
20 LETs=(PEEK 23673 
+256*PEEK 23673; 
/502 

25 PRINT s:REM s Zert 
in Sec. seit Zeile 10 
30 IF s > = 
60 THEN GOTO 10 

GroBbuchstaben; POKE 23658,8 ein 
Oaus 

Wartezeit: 10 PRINT "Press any 

key to continue" 
20IFINKEYS$ = "" 
THEN GOTO 20 
30 CLS: PRINT "This 
would be page 2" 
EiniacherimdvorallemSpeicher- 
platz-sparender ist: PAUSE n n=0 
bedeutet unendliche Pause; jeder 
Tastendruck setzt die Punktion zu- 

BREAK-Sdiirti:POKE23659,0(Sinclair 
User, Sept. 84,50/51) (dann kann man 
aber die untersten zwei Zeilen nicht 
im Programm (zum Beispiel INPUT) 
gebrauchten; bei SCROLL wird die 
Systemvariable DF SZ ((define 
screen size)) ebenfalls wieder auf 2 
gesetet, und der Schutz ist unwirk- 
sam; INKEY$ bemrtzen) 
Fehlermeldungsvnimlile ERR SP veriindern: 
10 LET A = PEEK 23613 t S56*PEEK 
23614:POKE A,b 

Werte ftir b ausprobieren; zum Bei- 
spiel 100-150-200 Oder 250. 200 = 
NEW 
CP 3/84,93: 

'■ ' ■■ ' i ■ ■irnigen: 

1 LET a=> PEEK 23613 + 256*PEEK 
2331-1: POST ,-:0-pOK.Ea + 1,0 
9999 LET b = 23613:POKE b,0: POKE 
b + 1,61: SAVE "xxx" CODE 23992, 
(PEEK 23641 -+ 256 * PEEK 236431 
23552: RUN 

Zum Abspeichem GOTO 9999, 
zum Laden LOAD "xxx" CODE ein- 
geben. Damit wird schon ein Ab- 
Sffias verursacht, wenn man wan- 
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rend des Ladevorgangs em BREAK 

veraucht. 

Bnsit-Progrnrtimlonge: PRINT PEEK 

23637 + 256*PEEK 23628-23755 

9998 PRINT "Freier Speicherbe- 



. .. 10 *PEE) FolgendeZeilemeinPTogramnieingBbnutli- 

! ■ ■'■■ "I '■ " ' ifji ■ 22.9 stet x Zeilen: 

9999 PRINT "Lange des 10 POKE 23692.x , i: LIS'].': STOP Til: 

Programms="; (PEEK 23641 + 256* x < 256) 

3S-256*PFFK POKE 23693,56 mocht so munches Listing 

23636)-229 wieder sichtbnr. /j-q <3 r i,pffpri 



LPrint III - 
Probleme gelbst 

Das weit verbreitete Drucker- Interface LPrint III hat 
seine Tiicken. Diese sind jedoch zu umgehen, wenn 
die Ursache erst einmal erkannt ist. 

BG™ 
Beqi 
wasichs 
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sich die in Ausgabe 3/85 der 
Happy-C ompul er b e a c hi le be rie n 
Sympiome zeigten. Zeichen gingen 
auf unerklarhche Weise verloren 
und bei gekauf ten Programmen ver- 
weigerte der Gemini zumeist seine 
Milarbeit. Sofort kam mir der Ver- 
dacht, daB w.ohl mit dera Interface 
etwas sein muBte, was nicht der sehr 
durfugen Anleitung zu entnehmen 
war, und ging daran, das Interface 
naher zu uniersuchen. AuBerst hilf- 
reich war dabei, die aus der Sicht 
des Herstellers vielleicht verstandli- 
che Methode, die Bezeichnung ei- 
nes ICs abzuschleifen, 

Erstes Ergebnis: Beim dera IC 
handeli es sich urn einen einfachen 
Buffer vom Typ 74125 beziehungs- 
weise 74425. 

Ich zeichnete mir vom Layout ei- 
nen Schaltplan und begann, die 
Funktion zu ergrtinden. 
Betrachtet wird nur die Parallel- 
Schnittstelle. 

Das Interface wird mit einem 
LPRINT-Kommando initialisiert. 
Dabei geschieht nun folgendes: 

Der Rechner lauft in die normaie 
ZX-Printer-Koutne bis zuin Beiehl IK 
A,{FB)beiAdresseOFOCH. Mit die- 
sera Befehl wird das im LPrint Ill- 
Interface befindliche EPROM se- 
lektiert und das Spectrum-ROM 
ganz abgeschaltet. Der Einsprung 
ins ROM erfoigt bei Adresse 
0712H-dezimal 1804. Dies ist durch 
die unvolisiandine AdieBoodierung 
des EPROMs (OFOCH-800H=0712H) 
moghch, Dann wird zuerst nachge- 
sehen, ob schon eine Initialisierang 
stattgefunden hat, indem die Kana- 



linformation fur die Druckrcutine 
untersucht wird. Kritisch sind des- 
halb auch alle I/O-Einlese- 
operationen mit gesetztem A7 und 
zuriickgesetztem A2 , also alle IN-Be- 
fehle, die groBer als 127 und nicht 
durch 4 teilbar sind. Bei all diesen 
Adressen beaten I aki..:e Abslurzue- 
fahr, weil immer das EPROM einge- 
schaltet wird, Man sollte dies beim 
Bau eigener Erweiterungen be- 
riicksichmen. Nur eine vollsiandige 
Adrefidecodterung kann hier Abhil- 
fe schaffen. 

Adressen-Suche 

Die Adresse der Kanalinformation 
fur die Druckroutine findet man 
uber die Systemvariable CHANS. 
Dort steht eine Adresse, zu der noch 
ein Offset von IS addiert werden 
muB, urn an die Adresse fur die 
DniL-k"Qi:"nt; ~.u kommen. 

hi Back;: PRINT 25S*PEEK ZZH?,?. - 
PEEK 23631 + 15. 

War das Interface noch nicht ini- 
tialisiert, wird dorthin die Adresse 
OEFDH gesohrieben und dient als 
Aufrufadresse fur alle folgenden 
LPrint-Befehle, wodurch das 
EPROM in deT vorher beschriebe- 
nen Weise unmer angesprorhen 

Mit jedera Aufruf werden nun be- 
stimmte Maschinenprogrammteile 
aus dem EPROM in den Printer-Buf- 
fer kopiert. Dieser Kniff ist notwen- 
dig, urn das EPROM wieder ab- 
schaiten zu kdnnen und Zugriff auf 
verschiedene ROM j Routinen zu ha- 

Um es nochmal zu betonen: Es 
wird kern einziges zu druckendes 
Zeichen im Printer-Buffer abgelegt, 
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sondem ein Maschinenprogramm, 
das die eigentliche Aufgabe des 
Druckens ubemimmt. Das Aus- 
schalten des EPROMs erfoigt immer 
vom Printer-Buffer aus mit dem Be- 
fehl IN A,(7B). 

Da das Maschinenprogramm mit 
jedem LPRINT-Befehl neu kopiert 
wird, spielt ein Oberschreiben des- 
selben eigentlich kerne Rolls. Doch 
Voreicht! Rin paarSpeicherzellenim 
Printer-Buffer von Adresse 23543 bis 
23548 werden als Zwischenspeicher 
benutzt. Werden diese iiberschrie- 
ben, so kann das unerwartete Fol- 
gen haben. 

Suche noch dem 
Schuldigen 

Dies ist einer der Griinde dafiir, 
daB mit manchen gekauften Pro- 
grammen ein Drucken nicht mog- 
lich ist, da sie genau diese Speicher- 
i.ellei! ebe.'ii'alls benirtzen. 

Auch Tasword II macht da keine 
Ausnahme. wie die Befehle MOVE 
Oder COPY BLOCK zeigen. (Des- 
halb auch manch unerklarliche Ab- 
sturze, wenn man irgendwann da- 
nach versucht, etwas zu drucken.) 
Erschwerend kommt hierbei noch 
dazu, daB zudem die Kanalinforma- 
tion nach 23296 verzweigt wird, da 
von der Bedienungsanleitung ein 
"LPRINT CHRS 5" beim Prograrnm- 
start empfohlen wird. Damit wird 
das im Printer-Buffer stehende Ma- 
schinenprogramm immer direkt 
aufgerufen und nicht mehr standig 
durch emeutes Einkopieren vom 
EPROM regeneriert. 

Solange man nicht die Grafikszei- 
chen als Druckersteuercode im Text 
verwendet, ist deshalb eine Imtiali- 
sierungmit "LPRINT CHRS 3" vorzu- 
ziehen. 

Eine andere Mdglichkeit, warum 
das Interface nicht mit einem ge- 
kauften Programm zusaramenarbei- 
tot, ist :'olgende; 

Manche Programme (zura Bei- 
spiel Atric-Assembler) prufen mit 
der Kombination IN A,(FB), BIT 6,A 
oder CP FF oder ahnliches nach. ob 
der ZX-Printer ansprechbar ist. Ver- 
lauft der Test negativ, so wird im nor- 
maien Programm ohne zu drucken 

Sonde riiii'li Surclm:' 
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Durch die Hardware der Interfa- 
ce bedingt ergibl ein derartiger Test 
immer (wegen der serieilen RS23S- 
Schnittstelle) da8 rermeintlich kein 
Drucker angeschlossen. bezie- 
riungsweise dieser nicht bereii ist. 
Gleichzeitig wird das ROM aus- und 
das EPROM eingeschaltet. 



Kiifestellung 

mit Assembler 



Abhilfe: Man durchsuche in B; 

sic das Maschinencode-Programi 

nach dieser Bitkombination und e 

setze sie durch die Kombinauor; 

IN A,($7B) 

BIT7,A 



Beiapiel: 10 FOR n = ....TO.... 
20 IF PEEK n- 2)9 
AND PEEK (n + 1)- 
251 THEN GO SUB 
100 

30 NEXT n: STOP 
100 IF (PEEK 
(n+2)= 203 AND 
PEEK (n + 2) ^254 A 
NDPEEK 
(n + 3) = 255!TH_TJ 
PRINT "Anderung 



RETURN 

110 PRINT "Initiali- 

sieiung bei Adres- 

120 RETURN 



(D7) 



aler wird damit 

nchtigen Stelle 
Das Programm 



Maschinencode-Programme die 
Adressen, bei denen das EPROM 
angesprochen wird und keine An- 
derung vorgenommen werden 
kann. In diesem Fall miissen die 
Adressen mit Hilfe eines Disassem- 
blerprogramms untersucht und in- 
dividuell abgeandert werden, was 
natiirlich ein gewisses Mafi an Er- 
fahrung im Urngang mit Maschinen- 
sprache voraussetzt. Erfolgreich 
kann eine Anderung normalerwei- 



se vorgenommen werden, wenn ir- 

gendwo in der Nahe der genannten 

Adresse ein Auf ruf mit: 

LDA.2 

CALL $1601 ;Kanal Printer bfmen 

LD A,$OD 

RST $10 ;Printroutine 

eu finden ist. Der Befehl »IN A,(FB)« 

ist unbedingt auf »IN A,(7B> abzuan- 

Unter Umstanden muB man auch 
uberprufen, ob vielfeicht die Adres- 
sen 33S43 bis 23548 von dem Pro- 
gramm benutzt werden und diese 
abandern. 

Ist das Interface einmai initiaii- 
siert, also die neue Kanalinfo einge- 
schrfeben und der Printer-Buffer 
verandert, so laBt sich das Interface 
vollkommen neu initialisieren, in- 
dem man wiedei die urspriinglicho 
Kanalinformation des ZX-Printers 
eingibt, 



Neue Initialisierung 
des Interfaces 



Vorteil: das Interface kann ohne 
Ausschalten des Reehners abge- 
scjialie; und neu initialisiert werden. 
POKE (256*PEEK 23833 i PF.P.K 
23631 + 15),244 

POKE (256*PEEK 23632 + PEEK 
23631 + 16J.9 

Wer sich genauer fiir den Inhalt 
des EPROMs mteressiert, der kann 
ihn sich auf folgcncie Art zueanqlich 
machen. da iiber Basic kein Zugriff 
moglich ist. 



0: b..LM BUSY ? 

30FOFn=lTOLENa$ 

40 OUT 2S100DE aS(n): OUT 

123CODE aS(n): OUT 2S1.CODE 

a$(n) 

50 NEXT n 

60 OUT 251,10: OUT 123,10: OUT 

251,10: REMVorschub 

70 GO TO 10 



Zum SchluB noch zu dem Pro- 
blem, wenn scheinbar rein zufallig 
Zeichen verlorengehen: 

Wenn man mit dem obigen Basic- 
Programm arbeitet, wird man fest- 
stellen, daB damit niemals ein Zei- 
chen veilorengeht. So zeigt sich 
auch, daB es sich hierbei um einen 
Softwarefehler rm EPROM handeit. 
der darin besteht. daB die BUSY- 
Leitung des Druckers nach der 
tibergabe eines Zeictiens wieder zu 
fruh abgefragt wird (noch bevor der 
Drucker sein Busy=l setzen konn- 
i<--). A • i-.v;r; ■-'-■■"liiiim cm Zcichen 
ausgegeben, obwohl der Drucker 
zu diesem Zeitpunkf noch nicht 
ernpfeagsfl karm Hier ist eine Um- 
programrmerung des EPROMs not- 
wendig, bei dei die Ausyabe eines 
Zeichens um ein paar Taktzyklen 
vciKigerl wird. 

EPROM tindern 

Stolze Besitzer eines EPROM- 
Prograramierge rates konnen nach- 
stehende Anderung vomehmen, 
die den Fehler vollstandig zum Ver- 
schwrnden bringt. 



LD DE,$9C40 ;Startadresse RAM 


LDHL.,0 


;Startadresse 




EPROM 


LD BC,$300 


■20-1E Speieherzel- 




len kopieren 


Dl 


:l--.*eiT!ipt sperren 




:EPROMemschal- 


LDIR 


;Jr;hali i:ach dez, 




■'-0X0 kopieren 


IN A,($7B) 


:EPROM ausschal- 


EI 


ilnlenupt freige- 






RET 





Original Anderung 

194 CALL $1F5494 CALL $05BF 
197 JP 

NC,$0DOO 197 NOP 
200 l.v A,(:- 7B1 !03LDA,0 

200 IN A,($7B) 



Mann kann d.os Interface auch oh- 
ne die eingebaute Steuersoftware 
benutzen (ohne LPrini-Befehl), wie 
das nachstehende Basic-Programm 



Der Hersteller mbge mir trotz Co- 
pyright den kurzen Auszug aus dem 
ohnehm fehlerhaften Programm 
verzeihen. Nach dieser Anderung 
wird der etwas langere BREAK-Test 
der LOAD-Routine aufgerufen, 

Schaltunqsbedmgt muB ein 
EPROM 2716-1 (350ns) verwendet 
werden (auf keinen Fall eines mit 
450ns), 

Mit Hilfe der aufgezeigten Lo- 
sungswege sollte es einem versier- 
ten Happy-Computermann moglich 
sein, doch noch Freude an semem 
LPrint III zu fmden, (J, Holder) 
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Reparatur-Story 

Mit dem Spectrum 
auf Du und Du 

Frei nach Murphys Gesetzen: Ein eleklronisches 
Gerdt wird beim Kauf getestet und funktioniert. 
Daheim verweigert es jedoch seinen Dienst. 
Nachahmung onne jegliche Gevutihr. 



■ Spe 
gebol i 



3n Spectrum proviso t.i^cl. 
ren. Dazu wurde der Aus- 
ter einen 4,7 kH Wider- 
Nul! VoJL gelegt und ein 
\ gebaut. Ein Transistor 
1 Geist auf. Computer re- 
si also doch gei'ahrhch! 
in ZTX 650 von Ferranti. 
nir n: mends zu bekom- 
i Gliick gibt es einen 
porteur in Ottobrunn. 
;en Teiefonaten und drei 
ten hatte ich daim den 
Also eingelotet und mein 
ging wieder. 



Erfolgserlebnis gesichert 



ich km 



Ml r 



prrivisorische Losing mit 
:rstand hat auch iunfeio 
1 Spectrum siiir&e iedig- 
i 2U Zeit ab. Ergo doch die 

austauschen. Ich habe 
3runn einen Kosxr.voran- 
jerioil.85MarkL;oUieAus 

Syrjkeln del CPU kosten. 
a noch. Aber wie lange 
ann ohne Computer? Da 
sines: Selberrnachen. 

rriir ;:k;o eh, en IC-Socke! 
;). sine neue CPU (14,80 
ne Entlotpumpe (16,80 



Lfotreraren Aber micf 

in nichts mehr. 

i des Spectrums ist ji 



doch noch geschafft. Man braucht 
nur mehr als zwei Hand© dafur. 
(Zum Gliick hat meine Frau mitge- 
holfen.) Man muB das Lotzinn an ei- 
nem Bemchen erhitzen. und dann 
das Bemchen solange vorsichtig be- 

qemDct-'T, 

CPU vors-rriq -_.^i_eheii. Fast 
70 Minuten haile k.; ^edduert, bis 
die CPU draufien war. 

Das Einloten des Sockels war nun 
ein Kinderspiel. Beim Einstecken 
der neuen CPU muB man nochmals 
vorsichtig sein. damit man sich nicht 
elektrostatisch aufladt. Und dann 
kommt der grofte Moment. Geht er 
wieder oder geht er nicht. Bei mir 
ging er wieder. Und ich kann jeta 
voller Stolz sagen: ich habe inn sel- 
ber repariert. 

Rnnd SO Mark habe ich investiert 
(mit dem kaputten Transistor) und 
die Entlotpumpe und die Lotspitze 
kann rch noch weiter gebrauchen. 
Also: Geld gespart und ein Erfolgs- 
erlebnis besanderer Art gehabt 
(aber auch geschwitzt). Jetzt zetgen 
sich auch keine Systemabstiirze 
mehr, und die Fehlerrate bei den 
Microdrive-Operationen ist auch 
deutlich zuriickgegangen. Und 
dann habe ich noch einiges liber die 
Spectrum Hardware gelemt. Das ist 
sicher alles nichts Nenes, aber wer 
hat schon alle Veroffenthchungen 
iiber den Spectrum gelesen. 

Der AnschluB —12 V Userport 
fuhrt nicht diese Spannung, sondem 
eine hochfrequente Wechselspan- 
nung. Man kann allerdings mit emer 
Diode und einem Tantalelko daraus 
—12 V machen. Alle Videosignale 
am Userport (U, V, Y. Video)' sind 
iiber Briicken gefiihrt, die offen- 
sichtlich nichl in alien Spectrum ein- 
gelotet sind. 

Bei einigen Spectrums ist der Pla- 
tinenaufdruck ftir emige Bauteile 
(Elkos) falsch herum. Also aufpas- 
sen und nicht einfach anders herum 
einloten. Und es gibt verschiedene 
Version II des Spectrum, sozusagen 
Version 11a und lib. Ich besitze einen 
der Baureihe ila. Man erkennt die- 
sen daran, daB bereits alle sechs 
Logic -ICs zur Adressdecodierung 
im 16-KByie-Gerat eingelotet sind. 
Erst im lit' sind dafiir Stackfassun- 
gen vorhanden Auch die Bnicke. 
mit der man die vorschiedenen Ty- 



trum nicht, aber das Interface 1. Also 
den Z80A-Prozessor austauschen. 

Aber vorher gab es noch ein wei- 
teres Problem. Wir haben namlich 



Nach vier vorsic'nticrcri 


pen der ::. KB . •^■Zk-__-Lererweiie- 


len sahen alle Iiotstellen 




jessuql aus. Abe: de: IC 


Aber die kann man ia notfalls umlc- 


noch nicht los. Und mit 


ten. Man mini also wirkhch aufpas- 




sen. Sinclair ist immor li'.ir cine Ubcr- 


i man dann leicht eine 


raschung gut (und wrrd es wohl blei- 


abreiBt. Aber es wurde 


ben). (R. W. Ceding) 
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Funk & Computer 



Es hat gef unlet 

Funksignale sdiwirren in Massen durch den Ather, 
aber nur wenige in Form von gesprochenen Worten, 
viele ais Morsesignale und als Funkfernschreiben. 
Einige Signale sind sogar codierte Bildsignale und 
lassen sich per Prog ram m decodieren. 



vom Recorder mit Text belegt wer- 
den. Laden und Speichem geht da- 
bei recht schnell, da ohne Header 
gearbeitet wild. Das Progiamm ver- 
zweigt nun in zwei Richrungen: El- 
Hen Sends- und einen Empfangs- 
zweig. Text, der empfangen wird, 
kann so im Speicher abgelegt wer- 
den, daB er spater entweder noch- 
mals auf dem Eildschirrn gezeigt 
wird oder aber ausgedruckt und/ 



Auss 



Werw 
net, diese »unverstandli- 
chen« Zeichen zu decodie- 
ren, als der Kollege Computer, zum 
Beispiel der Spectrum? Selbstver- 
standlich darf nun nicht jeder jedes 
beliebige zu empfangende Signal 
auch »mitlesen«. Dafur gibt es 
schlieBlich reichlich Bestimniungen 
der deutschen Bundespost. Aber im 
Bereich des lizensierten Amateur- 
funks bleiben noch irnrner genug le- 
senswerte Funksignale iiber. Neben 
dem Tastfunk werden hier sowohl 
RTTY-Technik (radio-teletype J als 
auch die neueren Kommunikaiions- 
formen AMTOR und Packet-Radio 
genutet, die eigentlich RTTY-Ab- 
wandlungen zum Beirieb automati- 
sclier Amateurfunk-Stationen (Mail- 
boxen) skid, die ohne Computer- 
technik nicht denkbar sind. RTTY, 
also das Funkfernschreiben, wird 



norrnalerweise mit speziellen Fern- 
schreibern codiert und decodiert. 
Mit einem eutsprechenden Intaifa- 
ce ausgeruslet, kanu jedoch yogar 
der Spectrum sowohl zum Ausge- 
ben als auch zum Empfangen dieser 
Signale verwendet werden. Das In- 
terface isi hier im Monitor zu sehen. 
Es wird als Bausate fur 149 Mark 
oder als Fertigteil fur 369 Mark an- 
geboten. Das mitgelieferte Pro- 
gramm ist wohl der eigentliche Clou 
der Anlage, Es ist koraplett in Z80- 
Maschinencode geschrieben und 
wird iiber die Tastatur bedient. Es 
pruft selbstiatig sowohl das Vorhan- 
densein des Interfaces als auch den 
freien Speicherplate und die ange- 
schlossenen Microdrive s. Ansehlie- 
Bend wird der Benutzer zur Zeit- und 
Slationsnamen-Eingabe aufgefor- 
dert. Funf Textspeicher mit je 253 
Zeichen konnen beschnobon oder 



die 




Der Computer im Funkkreis 



exakte Send e geschwi rid igkeii 
Oder 50 BAUD) wird eingehalten. 
Am SchluB jeder Aussendung wird 
der Stationsname gesendet und der 
Spectrum schaltet wieder auf Emp- 
fang zurtick. 



Es geht auch mit 
Bildsignalen 

Wei nun memt, die Krafle des klei- 
nen Sinclair-Computers seien aus- 
gereizt, der irrt sich gewaltig. Ohne 
jegliche Hardware-Zutaten ist der 
Spectrum in der Lage, sogenannte 
SSTV-Signale xa decodieren und auf 
dem Bildschirrn auszugeben. SSTV 
steht fur Amateur-Bildfunk und ist 
bisher wenigen Spezialisten vorbe- 
halten, Vielleicht andert sich aber 
die Zahl der Femseh-Amateure 
durch den Computereinsatz 
schneSI. Das entsprechende Spec- 
trum-Pro gramm bendtiot fur Sende- 
undE:r;pl'cmgabeliiebden4BKByte- 
Speicher. uMinicom SSTV« ist in Ma- 
schinensprache geschrieben und 
bendtigt 10 KByte Programmspei- 
cher. In dem RAM-Bereich von 
25000 bis 50000 konnen bis zu sie- 
ben Bilder abgelegt werden, die im 
Laufe des Programms dann abgeru- 
fen werden, Hierbei werden Texte 
wie Bilder erfaBt und empfangen 
ihungsweise gesendet. Fur 
groBere Empfangssicherheit sorgt 
ein aktives Filter, das man zwischen 
Empfanger und Spectrum schalten 
kann. Fur die hier vorgestellten An- 
wendungen ist iibrigens eine ent- 
sprechende Amateurfunk-Station 
:;£![,: L::-;enz notig. 

Mit diesen beiden Spitzenpro- 
grammen beweist der Spectrum 
eindeutig, daB er raehr kann als sim- 
ple Morsetraineraufgaben wahr- 
nehmen. Schade eigentlich, daB die 
reichlich vorhandene Fachliterahir 
diesen El em computer bisher aus- 
klarnmert. (mk) 
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Soundgenerator 



Sound zum Selbermachen 

Ein Sound-Generator-Bausatz verwandelt die mageren »BEEPs« zu 

vollem Kiang und laBt sich auch noch zur 8-Bit-PIO erweitern. 

Es ist ein »update« der in Happy-Computer 11/84 vorgesiellten Version. 



Ausgangspuriki !Urd;ese Bauar.- 
ieitunu ist der Sound-IC AY 
3-8912 von General Instru- 
ments. Dieser 1C ist (richtig ange- 
wendet) ein wahres Klangwunder, 
denn er enthalt drei Tbngenerato- 
ren, einen Rauschgenerator, drei 
Hiillkurvengeneratoien, ein Steuer- 
register und, um das MaB vol! zu ma- 
chen, noch eine 8-Bit-PIO (siehe 
Bild). 

»OUT« macht's 
moglich 

Angesprochen werden die 14 Re- 
gister des AY 3-8912 durch den Be- 
fehl -OUT 189,rw (n = bis 14 fiir Re- 




gister bis 14). Verdemlichi ■.v.:d 
dies durch die Register-Tabelle. Mit 
»OUT 191. n- wird der gewiinschte 
Wert n in das vorher angewahlte Re- 

"d"(;0"; '.■i..-v"-"lLi ^SSund 121 «ei- 
den durch die Gatler a& a4 und b2 
aus dem IORQ und dem WR-Signal 
sowie aus den AdreBlertungen Al 
und A6 an dei Steckerleiste des 
Spectrum decodiert, 

Als letztes bleibt noch der NF- 
Verstarker, aufgebaut aus dem 1C 
LM 386 und ein paar diskreten Bau- 
teilen. Bei diesem IC handelt es sich 
um einen 0,5 W-Verstarker fiir niedri- 
ge Betriebsspannungen (in unse- 
rem Fall 5 V). 
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1. Der Rauseh Generator, clesseri 
Klang in 32 Stufen (hell bis dun- 
kel) verandert werden kaim, 

2. Dig drei Tbngeneratoren, die 
;evvei!s 4095 Tone erzeuaeii, ei:;- 
stellbar durch eiri 12-Bit-Wort (8 
Biifein,4Bitgrob). 

3. Das Steuerregister als wichtig- 
sr Block. Durch dieses Register 

wird festgelegi, welcher Klang 
n Au::ga™aeiYioheintundobdie 
PI/O auf Ein- oder Ausgabe ge- 
stellt iat. Einstellbar ist dieses Re- 
qisler durch rmo Zahl von bis 
255. 

4. Die steuerbaren Verstarkerstu- 
litdenen die 1 ir-Mirs-tfirko ;i:n 

Ausgang fiir jede: - . eirizeineri Kd- 
nal festgelerjl wird fib Siufery 
Gibt man hier eine 16 ein, so wird 
der betreffende Kanal auf den 
Hullkurvengenerator gesch alter. 

5. Der Hullkurvengenerator, ein- 
gesiellt durch Register 11 und 12. 
Mil diesei Si Life wird dioHiJllknr 
v-cmi&riieriz aLisoewahlt. D; 
;!c:iLi~;1tI fiir bcido Register zi 

■n durch ein 16-Bit-Wort. so dafi 
bet der angegebenen Dimensio- 
iiierung des Clock-Generators, 
bestehend aus IC 74LS32, Garter 
al und a2, eine F'requenz von 0,1 
is zrrka 8 kHz eingestellt wer- 
den kann. 



paraliele Input/(..Jutpu ; 



EiiK-CinRcq-s-.-r ? sial: die Pi/O 
auf Eingabe. Mit .PRINT IN 191. 
kann der Eingangswert aaigeli- 
stet weiden, 



Die Hardware der 

Musikbox ist einfach, 

aber wirkungsvoll 

Der Aufbau auf der abgebildeten 

Plaline sollte dem emigerrnaBen ge- 
tibten Bastler keine Schwierigkeiten 
bereiten. Es ist jedoch unbedingt 
auf saubere Ldtstellen, richtige Po- 





las Sctialttild fiir mehr Sound 
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Faflttligfl 
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rtZV l^l Z" "5 Ffe0JC " * anal A 


a 


unieree Byle von 256 F ni K , „ 

□ be.es Byte «,n 15 


g 


Un 1er« Byle von 255 

cBereB Byle .on 15 Freemen! Ksnal C 


6 


Rauscnaeneraror 31 Klan B des Raus igencralois 




MkllMw. RauschKanalA.BC 


l 


SilESiH i h~~™ 


12 


unleras Byle von □ 255 

ooeres Byle von 255 H***™ Humurve 


13 


Hullku.vento,,,, D IE 


,4 


Pa„l,c.,-l,, r , ; , l /O u .p. J ,- P0 , l (PI,O) 



lung tier Tantalkondensatoren und 
die Vollzahligkeit der Drabibriicken 
zu achten, urn den Spectrum nicht in 
dieewigenjagdgrundezuschicken. 
Bei dem Verstarker-IC werden 
die Beincben 7 und 8 nicht ge- 
braucht und konnen abgekniffen 
werden. Die diversen Draht- 
briicken auf der Platine sind onbe- 
dingt als erstes einzuloien, da sie 
teilweise unter den ICs liegen Man 
koramt spater namlich nicht mehr 

Etwas schwieriger ist schon der 
Einbau der bestiickten Platine in 
das hier vorgeschlagene GehSuse, 
Der Kreativitat des Einzelnen sind 
hier keine Grenzen gesetzt. Platine, 
Bausatz und ein Musikprogiamm 
sind beim Autor erhaltlich. 

(R. Hobmeier) 



A Register und Funktionen 



Demo-Programrn 
' Utm Soundgenera[or 
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j| rem Dtm-omnu 


asa out a ,7: out b.ast rat 


n-0 








-:.; REM 47 5i!~SECr».JH " 


33B OUT a,B; OUT b.n: NCKT 


f> 


16,12,50,13,3 
aSB FOR »=1 TO 7: RERD C: 6 




SB CLS 

Si print ink a;" sound-Dtm 


=60 GO TO 5BB 

3BS CLS ^W^RTtSuER 1; INK 


2;R 


""Imprint «t b.b; ■■=... nab.n rot 






^SB^OR'n^TO 7 RERD « F 




PRINT : Pr!nt 






., in iii&"i; ... 


3 * a G0 to sae 




' L 6B*ReSTORE : PRINT INK 3, RT IB 


2 .SB 




J0 i-a B iNp5T Z 'ii*chlA rl K*"S , »uinic 


s :§" 










































111 OLS 8ll09: LET b " 191 




Hb'lET a>109: LETT bxISl 






14.0 QUT alio 


JIb pop/^b To E i*? G our a% 


PRI 










»sb print fit aa,e;"zuru«cK 


lOl 










IBB FOR i..=0 TO 14: OUT ISO 


11: O 


aes cl3 ^HHRt oucr i, ink e;r 


si! fVS.Ho 14. OUT M g 




all'LET a. IBS: LET b.191 


SIB GO TO *B 
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PIO zum Soundgenerafor 



Nachdem das bereits in 
»Happy-Computer 
ll/84« vorgestellte 
Sound-Modu! hoffentlich 
von alien Nachbauern 
zum Klingen gebracht 
werden konnte, wollen 
wir uns nun mit der ein- 
gebauten PIO beschdfti- 
gen. Der Ausbau 1st 
relativ einfach. 



In der nachi'olgenden Bauanlei- 
tung wird sie nur als Ausgabe- 
Port mit 8 Reiais-Ausgangen be- 
mitzt. Die Relais-Kontakte konnen 
mit maximal S00 mA belastet wer- 
den. 

Wie wir uns noch ermnern kon- 
nen, war an dem Sound-Generator 
eine lfipolige IC-Fassung als Aus- 
gang vorgesehen. Von hier aus geht 
es nun mil einem Flachbandkabel 
mit 16poligem IC-Stecker zur PI/O- 
Platine. 

Bevor wir abet rait dem Aufbau 
beginnen, miissen wir noch eine 
wichtige Anderung am Sound- 
Generator vomehmen, damit die 5 
V-Stromversorgung des Spectrum 
nicht uberlasiet wird. Diese Ande- 
rung ist in dem vorstehenden Sound- 
Artikel bereits emgearbeitet. 

Die auf dem Bild gekennzeichnete 
Leiterbahn durchtrennen und das 
freie Beinchen der IC-Fassung mit 
+ 9 V an der Steckerleiste verbin- 
den. Die Pl/O-Platine hat einen ei- 
genen S V-Regler. 
Die Funktionsweise ist folgende: 

Urn den Sound-Chip auf Daten- 
Ausgabe vorzubereiten, sind einige 
iiinoibsn notig. 

Als erstes alle Register des PSG auf 
»0« stellen. 

FOR I = TO 14 : OUT 189,1: OUT 
191,0: NEXT I 

Dann die PI/O initialisieren; 
OUT 189,7 : OUT 191,64 (FQr Fachleu- 
te: Das 6. Datenbitim Register 7muB 
fur PI/O-Ausgabe au.f »H« und fur 
PI/O-Eingabe auf >L« gesetzt wer- 
den.) 

: !-:,n r!o' :!r-:l Spectrum 




Nun konnen wir mit "OUT 189,14 : 
OUT 191,rw jeden Ausgang von 1-8 
einschaiten. 

Da die PI/O aber binar codiert ist, 
mussen wir fur die einzelnen 
Ausgabe-Befehle (n) fur den 

1. Ausgang eine 1 

2. Ausgang eine 2 

3. Ausgang eine 4 



Um den 7. Ausgang einzuschalten, 
muB der Befehl »OUT 189,14 : OUT 
191,64. heiBen. Der Relais-Kontakt ist 




Dei Besiiickungspliin in gleicher luge, wie das Folo oben. 
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Die kompletle PlO-Schaltung mit Bauteile-Lisfe 
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jetzi geschlossen. Das Ansschalten 
geschieht durch das Setzen des Re- 
gisters 14 auf s0« Oder mit dem Ein- 
schatten eines anderen Ausganges, 
Sollen mehrere Ausgange gleich- 
zeiiig cinqoschcutGt werden. so sind 
die Binar-Zanlen zu addieren, zum 
Beispiel filr Ausgang »1« und Aus- 
gang »7« einschalten muB die Zahl 65 
einsegabeia werden (1 + 64). 

Die ICs 1-3 dienen dem PSG-IC 
AY3-8912 als Treiberstufen, da del 
AY nirr erne LS-Last ireiben kann. 

Mit der LED-Balken-Anzeige kann 
der eingeschaltete Ausgang si.cht- 
bar gemach! werden. Als Relais 
werden 5 V DIL-Relais verwendet. 
Die Platine wird nach dem Be- 
stiickungsplan aufgebaut und verlo- 
tet. Die ICs werden ohne Fassung 



Der Spannungsregler wird auf 
der Riickseite der Platine rait der 
Aufdruckseite nach unten auf einein 
Kuhlblech montiert, das ungefahr 
die GroBe der Platine hat. Diese 
Konstrukiion kann dann mit Ab- 
standsbolzen in den vorgesehenen 
Lochern verschraubt werden. Bei 
dem Anschlufl des Flachbandka- 




bels empfiehlt sich grdSte Sorgfalt, tine, Bauiei'e und -iucn cm komplet- 

da es IC-Steoker r:;it unfen-chi^dli- tor Eni: s:\tz koririen be irr; AutoTbezo- 

cher Beschaltung gibt. Hier sollte gen werden. 

mansur Vorsichl alle Konlaktto mi: o:- Nun '/;el S[j;:3 and Erfolg. 

nem Ohm-Meter durciimessen. Pla- (R. Hobmeier) 



PI/0-5TEUERPR0GRRMM 

UON 

RflLF HOBMEIER 



LS 



. BORDER 6; PRPER i 



13 PLOT 3,30: DRP.U 160 , ; DRRU 
a, 27: DRflU -163,0: ORRU 0,-27 
IS REM RLLE REGISTER RUF H 
20 LET R=139: LET B = 191 
30 FOR N = TO 14; OUT fl,N: OUT 
B.fl: NEXT N 

35 REM PI/O RUF J . 

40 OUT H,?: OUT EJ75 

45 GO 5U6 100 

46 PRINT INK i . FiT S.S, "a 12 3 
4 5 6 7 3' 1 

49 PRINT ST 15, 1J "PI/0-AU5GRB5 
'■; hT 16,5; "ZUi'l = " .AT 17, l ; 

" REGISTER 14": LET C*="a"; GO f 
O 56 

50 PRINT RT 0,a,"UELCMER RUSGH 
NG SOLL RNGE5TEUERTUERDEN 1 BIT 
TE EINGEBEN UEITERE FUNKT 
IGNEN ", FLRSH l;">9<": PRUSE 4E 



THEN 



51 IF ( 
TO 50 

53 FOR Fl=8 TO 24 STEP 2: PRINT 
RT 10,n.; " ": NEXT n 

55 REM PI/O UERT RU5GEBEN 

56 LET D=<JRL C$: PRINT INK 1} fl 
T 3,10;"1 2 3 4 5 5 7 3": PRINT 

'-'■'. 2:RT 10. URL CS+D+3; 







■■= 


















IF C* 


















fWt 






































.^ 


PS^.T 


,:;;-. 


Ij hT 


1S,15;D; " 



1O0 PLOT 77,35; DRAW 126,0: PLO 
T 77,98 ORfii.J 126.0 

110 FOR 1--B~ TO 93: PLOT 75,1: 
PLOT 91,1: PLOT 107.1: PLOT 124, 
I: PLOT 140,1: PLOT' 156,1: PLOT 
172,1: PLOT 135. I: PLOT 204,1: N 
EXT I 

120 RETURN 

145 REM I HM BBB 

150 BORDER 6; PRPER 6; INK 0: C 
LS 

155 OUT 139,7: OUT 191,64 

160 PRINT "LfHUFLICHT ■: ■ Tfll-IPu 

RENDERN MIT'J FLRSH 1;">T<" 

170 PRINT RT =1 ,27, "R.H. ' 

130 PLOT 0,30: DRfiU 150.0: DRfltJ 

0,27; DHfiU -160,0 DRRL 0.-27 

190 PRINT HT 15. I. ■ , PI,'.:-hU.,i:-h5E 

" RT 16,5; 



156,0 



PLO 



" REGISTER 14" 

230 PLOT 77,35: DR 
T 77 ,95: DRRU 125,0 

210 F:;P :=■=, TO 36 PLOT 75,1; 
PLOT 91,1: PLOT 107,1; PLOT 124 
I. P_0f idO _■ PLOT 156,1: PLOT 
172,1: PLOT 133,1; PLOT 204,1- 



225 LET D*=INKEYJ: IF DJ= 
D*="t" THEN GO TO 215 
S30 PRINT RT 10 , fi+9; "■" 
240 PRINT RT 10 , fl + 9; "■" ; R" 











246 






































= 30 




















GO TO 


240 





Etasic-Testlisting zur PIO 
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MaitoKfcchnik Budiwitig 
Depot-Handler 



Tragen Sk Ihre BucbbesteBiing und die 
Anscftrift des Depotbucnh&ndleis auf 
die BBSteQkatte in dhsem Heft em. 
Bitle vergessen Sie den Absandgr nhht- 
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